特定フォルダから拡張子がexeだったファイルの一覧を取得する方法です。
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Call Query_Directory("C:\Windows") Set objFSO = Nothing Sub Query_Directory(PATH) Set objFOLDERS = objFSO.GetFolder(PATH) For Each FILE In objFOLDERS.Files '拡張子がZIPだった場合、画面に出力する If GetExtensionName(FILE) = "exe" Then Wscript.Echo FILE End If Next For Each Folder In objFOLDERS.SubFolders Query_Directory(Folder) Next Set objFOLDERS = Nothing End Sub Function GetExtensionName(PATH) GetExtensionName = objFSO.GetExtensionName(PATH) End Function
13行目
誤りですか?
サンプル
If GetExtensionName()…….
動作確認
If objFSO.GetExtensioName…….