• Home
 · 
• Files/File Controls/Input/Output
 · 
• Simple function to copy, move or rename a file.

Simple function to copy, move or rename a file.

Simple function to copy, move or rename a file.

Rate Simple function to copy, move or rename a file.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Simple Function to delete, move or rename a file.
'
' Arguments
'
' cFileName - Filename to be changed
' ChangeTpe - Accepts; Delete, Move, Rename
' varArg - Argument to accept rename filename or
'          move destination filename


Public Function Change_File(cFileName As String, _
                ChangeTpe As String, varArg As String)

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.getfile(cFileName)

Select Case ChangeTpe
    Case "Delete"
    oFile.Delete
    Case "Move"
    oFile.Move (varArg)
    oFile.Delete
    Case "Rename"
    oFile.Copy (varArg)
    oFile.Delete
End Select
End Function