人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

こんにちは

Windows XP でデスクトップにfolderA、その中にExcel_file.xlsがあります
簡単なスクリプトを作って入力ボックスに、たとえばA-12234と入力すると
フォルダー名とファイル名がA-12234にリネームされるプログラムを作りたいのですが
具体的にどうすればよいでしょうか?


●質問者: pzkpfwvi
●カテゴリ:コンピュータ
✍キーワード:Windows XP xls こんにちは スクリプト デスクトップ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●60ポイント ベストアンサー

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

http://www.whitire.com/vbs/

◎質問者からの返答

ご回答ありがとうございます。

うまく動きました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ