VBA，我想检测文件路径和文件夹路径是否正确，但是我在正确的文件路径后面加了 . 一个英文半角的点，还有几条 \ ，还是会显示文件路径正确从而通过IF判断导致异常！！！我在网上搜了好几种判断方式，有些可以判断出，有些路径明明是错的，却判断出正确，我不知道怎么回事！不知道有没有有效地文件路径判断方法？
谢谢一楼，但是如果你在你的地址后加一个 “\..”显然不正确，还是会显示文件存在。
二楼，我之前用的就是这种，在正确路径后输入“.”或者好几个“\”还是会显示路径正确。怎么办？
Sub aa()
Dim fso
Path1 = "c:\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Path1) Then
MsgBox "è·¯å¾æ£ç¡®,æ件åå¨"
Else
MsgBox "è·¯å¾ä¸æ£ç¡®,æ件ä¸åå¨"
End If
End Sub
ä½ è¯´çå¨è·¯å¾åé¢å .æè å \æ¯ä»ä¹ææ?
举个ä¾å好ä¹?æå¨æè¿éæµè¯æ²¡æé®é¢.
Dim fso
Path1 = "c:\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Path1) Then
MsgBox "è·¯å¾æ£ç¡®,æ件åå¨"
Else
MsgBox "è·¯å¾ä¸æ£ç¡®,æ件ä¸åå¨"
End If
End Sub
ä½ è¯´çå¨è·¯å¾åé¢å .æè å \æ¯ä»ä¹ææ?
举个ä¾å好ä¹?æå¨æè¿éæµè¯æ²¡æé®é¢.
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-03-21
Dim StrPath As String
StrPath = "z:\test.txt\.."
s = InStrRev(StrPath, "\")
If s > 0 Then
If Dir(StrPath) = Mid(StrPath, s + 1, Len(StrPath) - s) Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
End If本回答被提问者采纳
StrPath = "z:\test.txt\.."
s = InStrRev(StrPath, "\")
If s > 0 Then
If Dir(StrPath) = Mid(StrPath, s + 1, Len(StrPath) - s) Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
End If本回答被提问者采纳
