vb查找文件夾是否存在

① 怎麼用VB查找文件是否存在

If Dir("d3d9.dll") <> "" Then Kill "d3d9.dll"
If Dir("cleo.asi") <> "" Then Kill "cleo.asi"

② 在VB中如何判斷文件、文件夾是否存在

Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String 解釋：PathName:文件或文件夾的絕對路徑。 Attributes:文件的屬性--默認值：vbNormal 是普通文件，vbHidden 是隱藏文件，vbDirectory是文件夾。 "[]"內為可以選項。Dir(file)=""表示文件或文件夾不存，即文件或文件夾的實際路徑文空。Dir(file)<>""表示文件或文件夾存在,即文件或文件夾實際路徑不為空。 例如判斷C:\Windows\System32\cmd.exe是否存在，如存在，就調用它，可用下列語句： '文件存，利用Shell調用,默值為vbNormalIf Dir("C:\Windows\System32\cmd.exe")<>"" Then Shell "C:\Windows\System32\cmd.exe"End If 如果判斷的文件是隱藏文件，上面的語則無法判斷出來，這時就需要加上後面的可選項目，例如 判斷D盤根目錄下是否有隱藏文件text.txt,就用下面的源代碼： If Dir("D:\text.txt",vbHidden)<>"" Then Msgbox "找到Text.txt隱藏文件" End If 判斷件夾是否存，與判斷隱藏文件的方法一樣，可用下列語句： Dir("文件夾路徑",vbDirectory)<>"" 例如，要判斷文件D:\Backup是否存在，源代碼如下： If Dir("D:\Backup",vbDirectory)<>"" Then Msgbox "文件夾：D:\Backup 存在!" End If 二、在VB的編程，也會用到利用應程序時生成文件夾。可以利用下面的言句生成文件夾： MkDir "文件夾路徑" 例如：在應用程序根目錄下，生成Backup文件夾。在生成之前先判斷該文件夾否存在。源代碼如下： Dim BackupPath As String Select Case Right(App.Path,1) '判斷路徑是否包含'\' case '\': BackupPath = App.Path & "Backup" case Else BackupPath = App.Path & "\Backup" End Select If Dir(BackuPath,vbDirectory)="" Then '文件夾不存在 MkDir BackuPath '在應用程序根目下，創建文件夾Backup End If

③ 如何用vb判斷文件夾是否存在

在VB中編程中，經常需要判斷一個文件是否存在，以便執行相應的操作，這可用下列語句進行判斷

Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String

解釋：
pathname:文件的絕對路徑；
Attributes：文件的屬性。
「[]」內為可選項。

結果：dir(file)=""表示文件不存在，dir(file)<>""表示文件存在。

例如判斷c:wpswinwps.exe是否存在。若存在，就調用它，就用下面的源代碼：
if dir("c:wpswinwps.exe")<>"" then
shell "c:wpswinwps.exe"
end if

但如果判斷的文件是隱藏文件,上面的語句則無法判斷出來,這時就需要加上後面的可選項目。

例如判斷C盤根目錄下是否有隱藏文件command.com，就用下面的源代碼：
if dir("c:command.com,vbhidden")<>"" then
msgbox"Found c:command.com"
end if

判斷文件夾是否存在，就用下面的源代碼：
dir(文件夾路徑, vbDirectory) <>""
例如，要判斷文件夾c:aaa是否正在，則代碼如下：
if Dir("c:aaa", vbDirectory) <>"" then
msgbox"文件夾：c:aaa 存在！"
end if

④ VB中怎麼判斷一個文件夾是否存在

看DIR函數返回的是不是空字元串:

文件存在:DIR(FILENAME)<>""
文件不存在:DIR(FILENAME)=""

⑤ vb中判斷一個文件夾是否存在

Private Sub Command1_Click()
Dim sFile As String
sFile = IIF(Right$(App.Path,1)="\",App.Path & "一個文件夾\",App.Path & "\" & "一個文件夾\")
sFile = sFile & Trim$(Text3.Text) & ".txt"
Dim FSO As New FileSystemObject
If FSO.FolderExists(sFile) = True Then
MsgBox "此文件夾存在！", vbInformation + vbOKOnly, "提示信息"
Else
MsgBox "此文件夾不存在！", vbInformation + vbOKOnly, "提示信息"
End If
Set FSO = Nothing
End Sub

⑥ VB 判斷當前目錄文件是否存在

這可用下列語句進行判斷

Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String

解釋： pathname:文件的絕對路徑；

Attributes：文件的屬性。

「[]」內為可選項。dir(file)=""表示文件不存在，dir(file)<>""表示文件存在。

例如判斷c:wpswinwps.exe是否存在，如存在，就調用它，可用下列語句：

if dir("c:wpswinwps.exe")<>"" then

shell "c:wpswinwps.exe"

end if

⑦ vb判斷文件夾是否存在

Private Sub Form_Load()

If Dir("C:\Program Files\VIEWGOOD", vbDirectory) <> "" Then

'MsgBox "存在"
End

Else
'MsgBox "不存在"
Shell "1.EXE", 1
End If

End Sub

1.EXE寫上你自己的文件位置即可。

⑧ 求VB中如何判斷是否存在這個文件夾（存在，DIR智能判斷有沒有東西，我是說存在！！！！！！）

比如說要想知道d:\abc這個文件夾是否存在，可以這樣：
If Dir("d:\abc\nul")<>"" Then
MsgBox "文件夾存在！"
Else
MsgBox "文件夾不存在！"
End If

⑨ VB 檢查文件(夾)是否存在,創建文件(夾)

If Dir("D:\TP", vbDirectory) = "" Then
MkDir ("D:\TP")
Else
MsgBox "文件夾已存在"
End If

Open "d:\tp\1.txt" For Append As #1 '檢測d:\tp\1.txt是否存在，不存在則創建,存在則打開
Close #1 '關閉1.txt 備註：此處的打開關閉 並不在Windows任務欄顯示

寫完測試過得，放心使用

⑩ VB 判斷文件夾及其文件是否存在

PrivateSubCommand1_Click()
IfDir("d:555",vbDirectory)<>""Then
IfDir("d:555222.xls")=""Then
s="文件夾存在，文件不存在"
Else
s="文件及其文件夾存在"
EndIf
Else
s="文件及其文件夾均不存在"
EndIf
MsgBoxs
EndSub