判斷和創(chuàng)建可以放在一起。
專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)磐石免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了成百上千企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
創(chuàng)建空文件夾:
Directory.CreateDirectory(文件夾完整路徑)
'系統(tǒng)會(huì)自動(dòng)判斷文件夾是否存在,不存在就創(chuàng)建判斷并創(chuàng)建空文件:
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用這個(gè)FileStream做其它事情
End Using
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
這是封裝在Shell32.DLL系統(tǒng)文件里的一個(gè)函數(shù),既可以判斷本地文件是否存在,又可以判斷遠(yuǎn)程電腦上的文件是否存在。函數(shù)返回值是個(gè)Long型變量,返回兩個(gè)值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一個(gè)參數(shù)szPath,是個(gè)字符串變量,如果要判斷本地的文件是否存在其路徑可寫為:”C:\Windows\Config\SysBook.Txt”),如果文件在遠(yuǎn)程電腦上,其路徑可寫為(假設(shè)對(duì)方電腦IP為192.168.0.2)
"\\192.168.0.2\d$\javatools\somefile.txt",如果其電腦名為WorkStation可寫為
“\\workstation\javatools\somefile.txt",當(dāng)然這個(gè)函數(shù)還可以查找網(wǎng)站上的網(wǎng)頁(yè)文件如:""
我們可以寫個(gè)簡(jiǎn)單的自定義公用函數(shù)來完成這個(gè)功能,在自定義函數(shù)里調(diào)用這個(gè)API函數(shù)
Public Function GetFileExists(ByVal FileName As String) As Boolean
If FileName = "" Then
MsgBox "請(qǐng)輸入文件名", 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
當(dāng)然GetFileExists其中的參數(shù)還可以寫成
"\\192.168.0.2\d$\javatools\somefile.txt"
"\\workstation\javatools\somefile.txt"
""
這個(gè)函數(shù)除了能判斷文件是否存在外,還可以判斷本地或遠(yuǎn)程文件夾
是否存在,我覺得這要比用Dir這個(gè)VB自帶函數(shù)來判斷文件是否存在要好用多了,而且也不需要調(diào)用FileSystemObject組件來操作了。
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
需要。
在實(shí)際使用FTP文件服務(wù)器的過程中,經(jīng)常需要遠(yuǎn)程下載解析文件。為提高效率,需要判斷文件存在與否,有選擇的進(jìn)行解析。
FTP協(xié)議是一個(gè)用于在計(jì)算機(jī)網(wǎng)絡(luò)上客戶端和服務(wù)器之間進(jìn)行文件傳輸?shù)膽?yīng)用層協(xié)議,包括FTP服務(wù)器和FTP客戶端兩個(gè)組成部分。FTP能操作任何類型的文件而不需要進(jìn)一步處理,但有著極高的延時(shí),從開始請(qǐng)求到第一次接收需求數(shù)據(jù)之間的時(shí)間較長(zhǎng),并不時(shí)地執(zhí)行一些冗長(zhǎng)的登錄進(jìn)程。
先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