Windows XP でデスクトップにfolderA、その中にExcel_file.xlsがあります
簡単なスクリプトを作って入力ボックスに、たとえばA-12234と入力すると
フォルダー名とファイル名がA-12234にリネームされるプログラムを作りたいのですが
具体的にどうすればよいでしょうか?
vbs での実装例です。
適当なファイルに下記をコピーし、先頭の Constの部分を適切に変更後、vbs の拡張子のファイに保存して、
お試しください。
Option Explicit Const srcFolderName = "FolderA" Const srcFileName = "Excel_file.xls" Dim DesktopPath DesktopPath = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop") With CreateObject("Scripting.FileSystemObject") '--- フォルダのチェック If Not .FolderExists( DesktopPath & "\" & srcFolderName ) Then WScript.Echo "デスクトップに" & srcFolderName & "がありません。" WScript.Quit End If '--- ファイルのチェック If Not .FileExists( DesktopPath & "\" & srcFolderName & "\" & srcFileName ) Then WScript.Echo "デスクトップに" & srcFolderName & "\" & srcFileName & "がありません。" WScript.Quit End If '--- 新しい名前の入力 Dim newName newName = InputBox( "新しいフォルダ名(ファイル名)を入力してください。" ) '---フォルダ、ファイルの変更 .MoveFolder DesktopPath & "\" & srcFolderName, DesktopPath & "\" & newName .MoveFile DesktopPath & "\" & newName & "\" & srcFileName, DesktopPath & "\" & newName & "\" & newName & ".xls" End With
ご回答ありがとうございます。
うまく動きました。