Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Copying a File

Sub Copy_AnyFile()    Dim fs As Object    Dim strDb As String    Set fs = CreateObject("Scripting.FileSystemObject")    strDb = "C:\NewAccessDb.mdb"    fs.CopyFile strDb, CurrentProject.Path & "\"    Set fs = Nothing End Sub