I have some VB6 code that copies files over the network.
I want to use this to copy SQL backup files which are in this format: - Database_backup_2009063012
Does anyone know of a simple solution that allows me to copy all the items in a folder to another and then move the copied files so they are not re-copied next time the program is run?
Dim NetFile As String
Dim HDFile As String
Sub main(HDFile As String, NetFile As String)
On Error GoTo Errtrap
FileCopy NetFile, HDFile
Select Case Err
Case 91 ' not set
Case 53 ' file not found
MsgBox Err & " " & Err.Description
Private Sub Form_Load()
NetFile = "\\files\users\andy\temp\Test.bak"
HDFile = "c:\temp\test.bak"
main HDFile, NetFile