Simple function to copy, move or rename a file.

by Andy Skinner (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3^rd May 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



' 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

Download this snippet Add to My Saved Code

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

No comments have been posted about Simple function to copy, move or rename a file.. Why not be the first to post a comment about 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. Comments

Post your comment

Difficulty