请问怎么有效的检查一个路径是否正确

不死帝国

我自己这样检查感觉很不到位；希望各位给点好些的方法；能够检查全面一些
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Group1 = GUICtrlCreateGroup("SelectDirectory", 16, 96, 577, 89)
$Input1 = GUICtrlCreateInput("", 24, 136, 481, 21)
$Button1 = GUICtrlCreateButton("...", 512, 136, 75, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("确定", 520, 208, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        GUICtrlSetData($Input1,FileSelectFolder("",""))
                Case $Button2
                        Local $path = GUICtrlRead($Input1)
                        If $path = "" Then
                                MsgBox(0,"提示","目录不能为空。")
                        ElseIf StringMid($path,2,2) <> ":\" Then
                                MsgBox(0,"提示","路径错误。")
                        Else
                                MsgBox(0,"","路径是正确的")
                        EndIf
        EndSwitch
WEnd

这样当第一个字符不为英文字母也是正确；因为我只检查了第二和第三个是否等于 :\  ，各位还有什么更好的方法吗？谢谢

骗子

FileExists ？

netegg

#Include <WinAPIEx.au3>
_WinAPI_PathIsUNC

netegg

或者参考下http://www.autoitx.com/thread-43473-1-1.html

netegg

[au3]Local $a[3]
$a[1] = '路径名不合法'
$a[2]= '路径名合法'
$str = @ScriptFullPath & " >> " & $a[_WinAPI_PathFileExists(@ScriptFullPath)+1] & @CRLF ; File.
$str &= """C:"" >> " & $a[_WinAPI_PathFileExists("""C:""")+1] & @CRLF ; Drive.
$str &= "C: >> " & $a[_WinAPI_PathFileExists("C:")+1] & @CRLF ; Drive.
$str &= @ProgramFilesDir & " >> " & $a[_WinAPI_PathFileExists(@ProgramFilesDir)+1] & @CRLF ; Directory.
$str &= """Z:File.txt"" >> " & $a[_WinAPI_PathFileExists("""Z:File.txt""")+1] & @CRLF ; Shouldn't exist!
$str &= "D:bank >> " & $a[_WinAPI_PathFileExists("D:bank")+1] & @CRLF
$str &= "L： >> " & $a[_WinAPI_PathFileExists("L：")+1] & @CRLF ;全/半角
MsgBox(0, '_WinAPI_PathFileExists', $str)


Func _WinAPI_PathFileExists($sFilePath)
    Local $aReturn = DllCall('shlwapi.dll', 'int', 'PathFileExistsW', 'wstr', $sFilePath)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    Return $aReturn[0]
EndFunc   ;==>_WinAPI_PathFileExists
[/au3]

haopp1

进来学习一下！！！！！！！！！！！！！！！1