2016-11-14 8 views
0

サブフォルダ内のすべてのファイルとファイルのメッセージボックスを表示する.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行目()のそれのエラー、:

型の不一致:フォルダパス

+0

投稿したコードに 'FolderPath'という関数やプロシージャがありません。その中の唯一の 'FolderPath'は、プロシージャ' ProcessFolder'(未定義変数 'fldr'のプロパティを使う)へのパラメータです。 –

+0

FolderPath "C:\ My Documents"はエラーの場所です。 –

+0

はい、すでに言及しました。 –

答えて

0
Folderpath="c:\windows" 

等号がありません。

+0

等号は、タイプの不一致でエラーにならず、何もしませんでした(メッセージボックスなし) –

+0

ヘルプはhttps://www.microsoft.com/en-us/download/details.aspx?idにあります= 8247 – noodles

+0

彼らは5.6を落として5.7を上げたようです。 –

関連する問題