File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. 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