ファイル ファイルコピーFSO

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル ファイルコピーFSO]
Option Explicit

Sub ファイルコピーFSO(コピー元 As String, コピー先 As String)
'******************************************
'FSOファイルコピー(パラメータ(引数)はフルパス)
'******************************************
'*[参照設定] で「Microsoft Scripting Runtime」にチェック
'*パラメータ(引数)[コピー元]には[*.txt]のように[*]を使用可能
'*パラメータ(引数)[コピー先]には最後に[\]が必須

Dim objFSO As FileSystemObject

Set objFSO = New FileSystemObject
    objFSO.MoveFile コピー元, コピー先
Set objFSO = Nothing

End Sub

Sub ファイルコピー(コピー元 As String, コピー先 As String)
'******************************************
'ファイルコピー(パラメータ(引数)はフルパス)
'******************************************
FileCopy コピー元, コピー先

End Sub

Sub ファイル移動(移動元 As String, 移動先 As String)
'********************************************
'ファイルを移動(同一ドライブの場合)
'********************************************
Name 移動元 As 移動先
End Sub





Production Japan Import Application. Since 1998