2008-10-03から1日間の記事一覧
'#1 フォルダ全部のファイルでやる場合 Const wdReplaceAll = 2 'start strDir = InputBox("ディレクトリ名を入力してください。") '#1 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") '#1 Set objFolder = objFSO.GetFolder(strDir) '#1…
'#1 フォルダ全部のファイルでやる場合 Const wdReplaceAll = 2 'start strDir = InputBox("ディレクトリ名を入力してください。") '#1 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") '#1 Set objFolder = objFSO.GetFolder(strDir) '#1…