파일이 있는지 어떻게 확인할 수 있습니까?

Question

파일이 존재하는지 확인하고 싶으면 파일을 열어 첫 번째 행을 읽으려고합니다.

파일이 없거나 파일에 내용이없는 경우 다음을 원합니다. 누구도 오류가 발생했음을 알리지 않고 자동으로 실패합니다. 이와

Answer 1

시작하십시오 documentation에서 촬영

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

.

Answer 2

기존 폴더 대신 또는 추가

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

FileExists

와 함께 사용하기를 실패합니다 : VBS에 존재하는 특정 파일을 볼 수있는 방법을 찾고있는 사람들을위한

Function FolderExists(strFolderPath) 
' Check if a path exists 

Answer 3

:

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 

사용법 :

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