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