vbscript - VBScript 関数の作成に関する問題

Question

私は単純な VBScript スクリプトを作成しようとしています。これには、ファイル パスを受け取り、そこにファイルがある場合は true を返し、何もない場合は false を返す関数が必要です。

私は次のコードを使用しています：

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

次のエラーが表示されます。

Expected ')'  
800A03EE  
Microsoft VBScript compilation error

何が問題なのですか？ファイル内のこれらの 3 行だけでテストしましたが、それでもエラーが発生します。

Answer 1

VBScript にはバリアント型しかありません。型を明示的に指定することはできません。

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

Answer 2

変数の型を削除する必要があります。ところで、Dir() 関数は使用できないため、次のコードを使用する必要があります。

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

Answer 3

1. vbsにはそのようなタイプはありません

2. Dir 関数が存在しません。

Function FileThere(FileName)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FileThere = fso.FileExists(FileName)
set fso=nothing
End Function
wscript.echo FileThere("c:\boot.ini")