『壹』 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 检查文件(夹)是否存在,创建文件(夹)
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中如查找文件是否存在
回答者：墨渍 - 同进士出身 七级 7-10 17:18
正解.不过差一个小参数...文件夹的话就是
if dir("",vbDirectory)
文件就是
if dir("",vbArchive )