Tôi làm cách nào để kiểm tra xem tệp có tồn tại không?

Question

Tôi muốn kiểm tra xem tệp có tồn tại không và nếu có, tôi muốn mở tệp và đọc dòng đầu tiên,

Nếu tệp không tồn tại hoặc nếu tệp không có nội dung thì tôi muốn không âm thầm mà không để cho bất cứ ai biết rằng đã xảy ra lỗi.

Answer 1

Bắt đầu với điều này:

Set fso = CreateObject("Scripting.FileSystemObject") 
If (fso.FileExists(path)) Then 
    msg = path & " exists." 
Else 
    msg = path & " doesn't exist." 
End If 

Taken từ documentation.

Answer 2

một thư mục hiện sẽ thất bại với FileExists

Function FileExists(strFileName) 
' Check if a file exists - returns True or False 

sử dụng thay hoặc bổ sung:

Function FolderExists(strFolderPath) 
' Check if a path exists 

Answer 3

Đối với những ai đang tìm kiếm một cách để xem một tập tin cụ thể để tồn tại trong VBS:

Function bIsFileDownloaded(strPath, timeout) 
    Dim FSO, fileIsDownloaded 
    set FSO = CreateObject("Scripting.FileSystemObject") 
    fileIsDownloaded = false 
    limit = DateAdd("s", timeout, Now) 
    Do While Now < limit 
    If FSO.FileExists(strPath) Then : fileIsDownloaded = True : Exit Do : End If 
    WScript.Sleep 1000  
    Loop 
    Set FSO = Nothing 
    bIsFileDownloaded = fileIsDownloaded 
End Function 

Cách sử dụng:

FileName = "C:\test.txt" 
fileIsDownloaded = bIsFileDownloaded(FileName, 5) ' keep watching for 5 seconds 

If fileIsDownloaded Then 
    WScript.Echo Now & " File is Downloaded: " & FileName 
Else 
    WScript.Echo Now & " Timeout, file not found: " & FileName 
End If