Script Paradigm

ファイルをコピー

ファイルをコピーします。

Option Explicit
Call fnCopyFile("new.txt","new2.txt")
Sub fnCopyFile(ByVal strBfreFilePath, ByVal strAftrFilePath)
    Dim fsoTemp
    
    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    Call fsoTemp.CopyFile(strBfreFilePath, strAftrFilePath, True)
    
    Set fsoTemp = Nothing
End Sub
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00242710113525391]