使用vb 6.0在一個目錄中查找文件

-3

有人請幫助我「使用VB 6.0代碼和在目錄中搜索文件（使用任何擴展名），如果在指定目錄中找到所需文件，代碼應返回TRUE FALSE」使用vb 6.0在一個目錄中查找文件

感謝

Private Function CheckPath (strPath As String) As Boolean 
    If Dir$(strPath) <> "" Then 
     CheckPath = True 
    Else 
     CheckPath = False 
    End If 
End Function

來源

2013-07-09 Amaresh Choudhary

我想我的問題可能已被誤解了follwing代碼已被嘗試。請檢查一致。由於專用功能的CheckPath（strPath的作爲字符串）作爲布爾如果DIR $（strPath中）<> 「」那的CheckPath =真否則的CheckPath =假結束如果端功能 –

這裏是一個VB6功能檢查文件是否存在：

Public Function FileExists(ByVal FileName As String) As Boolean 
    On Error Resume Next 
    FileExists = Not CBool(GetAttr(FileName) And (vbDirectory Or vbVolume)) 
    On Error GoTo 0 
End Function

通行證我n包含文件路徑的完整文件名。

來源

2013-07-09 09:03:29 MicSim

感謝MicSim，非常感謝 –

這裏的+ 1你應得的，儘管接受你的回答，但被提問者遺漏了。但我仍然不得不指出，檢查文件的存在並不像大多數情況下那樣必要。即使您在嘗試操作或與之交互之前確認文件的存在，您仍然會受到競爭狀況的影響。最好只是嘗試所需的任何文件操作，並處理導致的錯誤。 –

使用vb 6.0在一個目錄中查找文件

回答

相關問題