VBScript 함수를 만드는 중 문제가 발생했습니다.

Question

간단한 VBScript 스크립트를 만들려고합니다. 파일 경로를 사용하고 거기에 파일이 있으면 true를 반환하고, 아무것도없는 경우 false를 반환합니다.

Function FileThere (FileName As String) As Boolean 
FileThere = (Dir(FileName) > "") 
End Function 

나는 다음과 같은 오류 얻을 : 뭐가 잘못

Expected ')' 
800A03EE 
Microsoft VBScript compilation error 

어떤 생각을

나는 다음과 같은 코드를 사용하고 있습니다? 파일의 세 줄만 테스트했는데 오류가 계속 발생합니다.

Answer 1

가변 유형을 제거해야합니다.

Function FileThere (FileName) 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    FileThere = fso.FileExists(FileName) 
    Set fso = Nothing 
End Function 

Answer 2

VBScript에는 변형 유형 만 있으며 형식을 명시 적으로 지정할 수 없습니다.

Function FileThere(FileName) 
    FileThere = (Dir(FileName) > "") 
End Function 

Answer 3

2. Dir 함수가 존재하지 않는 VBS에서와 같은 어떤 유형이있다 : 그 다음 코드로 이동해야하므로 BTW, 디렉터리() 함수는 사용할 수 없습니다.

   기능 FileThere (파일 이름)

   어둡게

   FileThere = fso.FileExists (파일 이름)

   은 FSO = CreateObject를 설정 ("Scripting.FileSystemObject와") = 아무것도 설정 FSO FSO

   최종 기능

   wscript.echo FileThere ("c : \ boot.ini")