【VBA】FileSystemObjectによってファイルを移動させる方法
VBAでファイル移動したい人向けに書いています。
本記事の内容
・FileSystemObjectによってファイルを移動させる方法
VBA(マクロ)で自動的にファイルを移動したいと思っていませんか?
FileSystemObjectによってファイルを移動する方法を紹介します。
FileSystemObjectによってファイルを移動させる方法
ExcelVBA参照設定
本方法では以下のVBAの参照設定が必要になります。
①メニュータブの「ツール」をクリックし、参照設定をクリックする
②「Microsoft Scripting Runtime」をチェックする
③OKボタンをクリックする
VBAプログラム
以下がFileSystemObjectによってファイルを移動させるプログラムです。
- '*****************************************
- '* ファイル移動
- '*****************************************
- Sub FILE_MOVE()
- Dim beforeMoveFilepath As String '移動前ファイルパス
- Dim afterMoveFolder As String '移動後フォルダ
- Dim afterMoveFilepath As String '移動後ファイルパス
- Dim fso As Object 'FileSystemObject
- '移動前ファイルパス
- beforeMoveFilepath = "D:\Webページ保存ファイル\ZIP展開先\msedgedriver.exe"
- '移動後フォルダ
- afterMoveFolder = "D:\Webページ保存ファイル\移動先"
- '移動後ファイルパス
- afterMoveFilepath = "D:\Webページ保存ファイル\移動先\msedgedriver.exe"
- '移動後フォルダがなければ作成する
- If Dir(afterMoveFolder, vbDirectory) = "" Then
- MkDir afterMoveFolder
- End If
- 'ファイル移動
- FileCopy beforeMoveFilepath, afterMoveFilepath
- Application.Wait [Now()] + 10000 / 86400000
- '移動前ファイルを削除
- Set fso = CreateObject("Scripting.FileSystemObject")
- Call fso.DeleteFile(beforeMoveFilepath, True) '移動前ファイルを削除
- Set fso = Nothing
- End Sub
12行目:移動前ファイルパスを設定する
14行目:移動後フォルダを設定する
16行目:移動後ファイルパスを設定する
まとめ
FileSystemObjectによってファイルを移動させる方法を紹介しました。
最後までご覧いただき、ありがとうございました。
「【ExcelVBA】HTTP/HTTPS通信によるWebページ情報取得の方法」も紹介していますので、もしよろしければこちらも御覧ください。
最近のコメント