本示例使用 Dir 函数来检查某些文件或目录是否存在。Dim MyFile, MyPath, MyName' 返回“WIN.INI”(如果该文件存在)。 MyFile = Dir("C:\WINDOWS\WIN.ini") ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在, ' 函数将返回按条件第一个找到的文件名。 MyFile = Dir("C:\WINDOWS\*.ini")' 若第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.ini 文件。 MyFile = Dir' 返回找到的第一个隐式 *.TXT 文件。 MyFile = Dir("*.TXT", vbHidden)' 显示 C:\ 目录下的名称。 MyPath = "c:\" ' 指定路径。 MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。 Do While MyName <> "" ' 开始循环。 ' 跳过当前的目录及上层目录。 If MyName <> "." And MyName <> ".." Then ' 使用位比较来确定 MyName 代表一目录。 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory ThenDebug.Print MyName ' 如果它是一个目录,将其名称显示出来。 End If End If MyName = Dir ' 查找下一个目录。 Loop
imissyoulipj 请看一下vb5.0的联机手册那里有很多好东西. 或者用一个土办法: Private Sub Command1_Click() On Error GoTo 100 Open "C:\files\12345.txt" For Append As #1 Close 100 MsgBox "C:\files 此文件夹不存在!" End Sub
Private Sub Command1_Click() On Error GoTo 100 Open "C:\files\imissyoulipj.txt" For Append As #1 Close #1 MsgBox "C:\files 此文件夹 存在!" Kill "C:\files\imissyoulipj.txt" Exit Sub 100 MsgBox "C:\files 此文件夹 不存在!" End Sub '不好意思起先写错了.哈哈哈
MyFile = Dir("C:\WINDOWS\WIN.ini") ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在,
' 函数将返回按条件第一个找到的文件名。
MyFile = Dir("C:\WINDOWS\*.ini")' 若第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.ini 文件。
MyFile = Dir' 返回找到的第一个隐式 *.TXT 文件。
MyFile = Dir("*.TXT", vbHidden)' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory ThenDebug.Print MyName ' 如果它是一个目录,将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop
请看一下vb5.0的联机手册那里有很多好东西.
或者用一个土办法:
Private Sub Command1_Click()
On Error GoTo 100
Open "C:\files\12345.txt" For Append As #1
Close
100
MsgBox "C:\files 此文件夹不存在!"
End Sub
On Error GoTo 100
Open "C:\files\imissyoulipj.txt" For Append As #1
Close #1
MsgBox "C:\files 此文件夹 存在!"
Kill "C:\files\imissyoulipj.txt"
Exit Sub
100
MsgBox "C:\files 此文件夹 不存在!"
End Sub
'不好意思起先写错了.哈哈哈
万一文件C:\files\imissyoulipj.txt事先已经存在,你岂不是把它删了,
好可怜的文件呀!
if test="" then
msgbox "未找到相关目录"
else
' do other
end if
说的有道理.不过我还是用我的土办法 input一下吧可以吗?