VBScript ファイル操作一般 サンプル

VBScriptでファイル操作についてのサンプルです。

Option Explicit

Dim objFileSys
Dim strMoveFrom
Dim strMoveTo

'①ファイルシステムオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'==============================================================
'= ファイルの移動
'==============================================================
'②移動元と移動先のファイル名を変数に設定
strMoveFrom = "c:\vbs\test\aaaaa"
strMoveTo = "c:\vbs\tmp\aaaaa"

'③ファイルの移動を行います
objFileSys.MoveFile strMoveFrom,strMoveTo

'==============================================================
'= フォルダの移動
'==============================================================
'④移動元と移動先のフォルダ名を変数に設定
'strMoveFrom = "c:\happy\temp\data"
'strMoveTo = "c:\happy\send\data"

'⑤フォルダの移動を行います
'objFileSys.MoveFolder strMoveFrom,strMoveTo

'==============================================================
'= ファイル名の変更(同じフォルダ内での移動)
'==============================================================
'⑥移動元と移動先のファイル名を変数に設定
' 移動先と移動元のフォルダを同じにし、ファイル名だけ別にすると
' ファイル名の変更をしたことになる
'strMoveFrom = "c:\happy\SendFile.txt"
'strMoveTo = "c:\happy\SendFile2.txt"

'⑦ファイルの移動を行います
'objFileSys.MoveFile strMoveFrom,strMoveTo

'==============================================================
'= フォルダ名の変更(同じフォルダ内での移動)
'==============================================================
'⑧移動元と移動先のフォルダ名を変数に設定
' 移動先と移動元のフォルダを同じにし、移動するフォルダ名だけ別にすると
' フォルダ名の変更をしたことになる
'strMoveFrom = "c:\happy\data"
'strMoveTo = "c:\happy\data2"

'⑨フォルダの移動を行います
'objFileSys.MoveFolder strMoveFrom,strMoveTo

'⑩オブジェクトの破棄
set objFileSys = Nothing

Bookmark this on Yahoo Bookmark
Bookmark this on Google Bookmarks
Share on LinkedIn
LINEで送る
Pocket