shell肯定是路徑的問題,.net有自己的類庫可以實現(xiàn)這個功能。你用

創(chuàng)新互聯(lián)公司堅持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的石嘴山網(wǎng)站設(shè)計、移動媒體設(shè)計的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
Process.Start(路徑)即可解決實現(xiàn)
判斷和創(chuàng)建可以放在一起。
創(chuàng)建空文件夾:
Directory.CreateDirectory(文件夾完整路徑)
'系統(tǒng)會自動判斷文件夾是否存在,不存在就創(chuàng)建判斷并創(chuàng)建空文件:
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用這個FileStream做其它事情
End Using
Dim objFile As System.IO.File
If objFile.Exists("C:\a.txt") Then
FileOpen(1, "c:\a.txt", OpenMode.Append)
Else
FileOpen(1, "c:\a.txt", OpenMode.Output)
End If
先imports
system.runtime.interopservices
然后class
xxxx
public
shared
function
zlibversion()
as
string
end
function...'在里面調(diào)用zlibversion()即可調(diào)用zlib1.dll的zlibversion方法,其他dll你根據(jù)接口靈活定義好了end
class
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
這是封裝在Shell32.DLL系統(tǒng)文件里的一個函數(shù),既可以判斷本地文件是否存在,又可以判斷遠程電腦上的文件是否存在。函數(shù)返回值是個Long型變量,返回兩個值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一個參數(shù)szPath,是個字符串變量,如果要判斷本地的文件是否存在其路徑可寫為:”C:\Windows\Config\SysBook.Txt”),如果文件在遠程電腦上,其路徑可寫為(假設(shè)對方電腦IP為192.168.0.2)
"\\192.168.0.2\d$\javatools\somefile.txt",如果其電腦名為WorkStation可寫為
“\\workstation\javatools\somefile.txt",當然這個函數(shù)還可以查找網(wǎng)站上的網(wǎng)頁文件如:""
我們可以寫個簡單的自定義公用函數(shù)來完成這個功能,在自定義函數(shù)里調(diào)用這個API函數(shù)
Public Function GetFileExists(ByVal FileName As String) As Boolean
If FileName = "" Then
MsgBox "請輸入文件名", vbInformation, "提示"
Exit Function
Else
GetFileExists = CBool(PathFileExists(FileName))
End If
End Function
在窗體界面上加一按鈕,和一文本框
Private Sub Command1_Click()
Dim T As Boolean
T = GetFileExists("F:\it\Develope\Retail\Bill\vssver.scc")
If T = True Then
Text1.Text = "該文件存在"
Else
Text1.Text = "該文件不存在"
End If
End Sub
當然GetFileExists其中的參數(shù)還可以寫成
"\\192.168.0.2\d$\javatools\somefile.txt"
"\\workstation\javatools\somefile.txt"
""
這個函數(shù)除了能判斷文件是否存在外,還可以判斷本地或遠程文件夾
是否存在,我覺得這要比用Dir這個VB自帶函數(shù)來判斷文件是否存在要好用多了,而且也不需要調(diào)用FileSystemObject組件來操作了。
保存文件的步驟為:
關(guān)閉流,特別是寫入流
關(guān)閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊方隊亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub
標題名稱:vb.net文件存在,vb 文件是否存在
鏈接地址:http://chinadenli.net/article41/dsigsed.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號、網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計、企業(yè)建站、網(wǎng)站排名、定制網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)