サブフォルダ内のすべてのファイルとファイルのメッセージボックスを表示する.vbsを作成しています。スクリプト):"FolderPath"(フォルダへのパス) "と呼ばれるタイプの不一致エラー
Set FSO = CreateObject("Scripting.FileSystemObject")
FolderPath "C:\My Documents"
Sub ProcessFolder(FolderPath)
Set Fls = fldr.Files
Set objFile = objFSO.CreateTextFile(outFile, True)
For Each thing In Fls
MsgBox thing.Path
Next
Set fldrs = fldr.SubFolders
Set objFile = objFSO.CreateTextFile(outFile, True)
For Each thing In fldrs
MsgBox thing.Path
ProcessFolder thing.Path
Next
End Sub
私はそれを実行する、と言ってFolderPath
が呼び出された3行目()のそれのエラー、:
型の不一致:フォルダパス
投稿したコードに 'FolderPath'という関数やプロシージャがありません。その中の唯一の 'FolderPath'は、プロシージャ' ProcessFolder'(未定義変数 'fldr'のプロパティを使う)へのパラメータです。 –
FolderPath "C:\ My Documents"はエラーの場所です。 –
はい、すでに言及しました。 –