MW211 EXIT

devlog
WSH/まわりのファイルを検索
2021年01月18日
そのVBScriptファイルが存在するファイルのまわりのファイルを検索する雛形。
┌──────────────────────────────────────┐
│Dim objWSH:   Set objWSH = WScript.CreateObject("WScript.Shell")            │
│Dim objShell: Set objShell = WScript.CreateObject("Shell.Application")      │
│Dim objFSO:   Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
│Dim objFolder, objFile                                                      │
│Set objFolder = objFSO.GetFolder(objWSH.CurrentDirectory)                   │
│For Each objFile In objFolder.Files                                         │
│    If objFSO.GetFileName(objFile) <> WScript.ScriptName Then               │
│        MsgBox objFSO.GetFileName(objFile)         & vbCrLf & vbCrLf _      │
│             & vbCrLf _                                                     │
│             & objFile                             & vbCrLf & vbCrLf _      │
│             & objFSO.GetParentFolderName(objFile) & vbCrLf & vbCrLf _      │
│             & objFSO.GetBaseName(objFile)         & vbCrLf & vbCrLf _      │
│             & objFSO.GetExtensionName(objFile)                             │
│    End If                                                                  │
│Next                                                                        │
└──────────────────────────────────────┘
分類:WSH・VBS