【教學】VB6判斷檔案是否存在 不存在就下載檔案

廢話不多說,請直接往下閱讀全文吧!!




宣告:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal Caller As Long, ByVal URL As String, ByVal FileName As String, ByVal Reserved As Long, ByVal fnCB As Long) As Long
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

代碼:

If Dir$(App.Path & "\xxx.rar") = "" Then


URLDownloadToFile 0, "下載網址", App.Path & "\xxx.rar", 0, 0 
MsgBox "正在下載檔案"
Else
MsgBox "檔案已存在 無須下載"
End If

App.Path &  是自動路徑 也就是程式運行的路徑 例如你程式放在桌面 那如果你代碼是:
If Dir$(App.Path & "\xxx.rar") = "" Then 它就會檢查 桌面裡有沒有XXX.RAR這個檔案   也就是會檢查這個程式所在的目錄!如果要檢查例如C磁碟 則改成:
If Dir$ "C:\xxx.rar") = "" Then
URLDownloadToFile 0, "下載網址", App.Path & "\xxx.rar", 0, 0  這一段也是依樣  後面是保存的路徑跟檔案名稱 下載後保存在哪 跟保存的名稱。