Dim setpath setpath = "C:\foo" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call RenameForCheckedFiles(objFolder, "foo.gif", ".gif") sub RenameForCheckedFiles(folder, rBeforeStr,…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。