No.1ベストアンサー
- 回答日時:
こんにちは。
本当は、shell でしたほうがよいとは思ったものの、VBScript という括りの中なら、このようにすればよいかと思いました。
Dim myFolder
Dim objFS
Dim objFolder
Dim objfile
Dim i , j
Dim fn
Set objWshShell = CreateObject("WScript.Shell")
myFolder = objWshShell.CurrentDirectory
Set objFS = CreateObject("Scripting.FilesystemObject")
Set objFolder = objFS.GetFolder(myFolder)
On Error Resume Next
For Each objfile In objFolder.Files
fn =objfile.Name
i = InStr(1, fn, "ScreenShot_", 1)
' j = InStr(1, right(fn,3), "jpg", 1) 'jpgの場合
If i > 0 Then 'If i > 0 And j>0 Then ''拡張子をみる場合。
objfile.Name = Replace(fn, "ScreenShot_","")
End If
Next
この回答へのお礼
お礼日時:2015/08/26 14:07
WindFallerさん、できました。
ありがとうございました。
こういうのをサクってできてしまうプログラマはやっぱりカッコいいですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- iPhone(アイフォーン) web上の電話番号リンクの桁区切りが、iPhoneだと特定電話番号でおかしくなるのを解決したい 1 2023/03/28 14:27
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
Access VBA で フォルダ権限...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
フォルダにリンクを貼りたい
-
フォルダを開いて、閉じるのプ...
-
Excelで指定したフォルダに保存...
-
フォームを最前面に表示したい...
-
エクセルVBA ファイル名とタイ...
-
パス名に2バイト文字(マルチバ...
-
ExcelのVBAでフォルダ指定がで...
-
会社のネットワーク上のファイ...
-
バッチファイル フォルダを...
-
エクセルのデータをメモ帳に貼...
-
クラウドにあるフォルダを共有...
-
EXCELのセルにフォルダのパスの...
-
VBAにてツリー階層表示ツールの...
-
フォルダ選択ダイアログ:ネッ...
-
C ファイル出力で、フォルダが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報