Declare Sub FileTransfer
Declare Sub PrintMessage (ByVal strMessage As String)

Define XCOPYTENDERFILES ApplicationDirectory$() + "XcopyTenderFiles.bat"
Define LOG_FILE "\\corp.qr.com.au\app\QRGIS\Mapinfo\zGIS_Data_Editing\QR_Log_Files\KMZ_Logs\Signs_Tender\Signs_Tender.Log"
Define CMDHOLDER ApplicationDirectory$() + "Cmd_Holder.txt"
Declare Function WinExec Lib "Kernel32.dll"(byval lpszCmdLine$ As string,byval fuCmdShow As Integer) As Integer
Global COMMID  As Integer '// Used to run DOS commands
Define CR CHR$(10)

Sub FileTransfer

Dim xcopyCMD As String
Dim CsvFilePath as String
Dim KmlFilePath as String
Dim TabFilePath as String
Dim CsvDest as String
Dim KmlDest as String
Dim TabDest as String

XcopyCMD = "Xcopy /y "
CsvFilePath = """\\corp.qr.com.au\app\QRGIS\Mapinfo\zGIS_Data_Editing\QRData\Signs\Signs_Tender_Files\Csv\*.Csv""" & " " 
KmlFilePath = """\\corp.qr.com.au\app\QRGIS\Mapinfo\zGIS_Data_Editing\QRData\Signs\Signs_Tender_Files\Kml\*.Kml""" & " " 
TabFilePath = """\\corp.qr.com.au\app\QRGIS\Mapinfo\zGIS_Data_Editing\QRData\Signs\Signs_Tender_Files\Tab_Files\*.*""" & " "

CsvDest = """\\corp.qr.com.au\app\QRGIS\Mapinfo\QRData\Signs\Signs_Tender_Files\Csv\"" >> "&  LOG_FILE 
KmlDest = """\\corp.qr.com.au\app\QRGIS\Mapinfo\QRData\Signs\Signs_Tender_Files\Kml\"" >> "&  LOG_FILE
TabDest = """\\corp.qr.com.au\app\QRGIS\Mapinfo\QRData\Signs\Signs_Tender_Files\Tab_Files\"" >> "&  LOG_FILE

'// Delete CMDHOLDER File
If Fileexists (CMDHOLDER) Then 
 Kill CMDHOLDER 
  End If 

Open file LOG_FILE for append as #1

'// Create Batch File
Call PrintMessage(" Create and run batch file ...")
Close file #1

Open file XCOPYTENDERFILES for Output as #2 
 print #2, "@echo off"
 print #2, "cls"
 print #2, ""
 print #2, xcopyCMD  & CsvFilePath & CsvDest 
 print #2, xcopyCMD  & KmlFilePath & KmlDest
 print #2, xcopyCMD  & TabFilePath & TabDest
 Print #2, "Echo Tender Files >> " & CMDHOLDER  
Close file #2
		
'// run Batch - Note That You Wont See Bat File Running Unless You Change 0 to 1
COMMID=Winexec(Chr$(34) & XCOPYTENDERFILES & Chr$(34), 0)
Do 
 Loop While Not Fileexists (CMDHOLDER) 

  Kill XCOPYTENDERFILES

   Open file LOG_FILE for append As #1
	Call PrintMessage(CR &" Signs Tender files copied to \\corp.qr.com.au\app\QRGIS\Mapinfo\QRData\Signs\Signs_Tender_Files "& time(24)& CR)
	 Close file #1

End Sub 

Sub PrintMessage (BYVAL strMessage As String)

 '// Print to message window
 Print strMessage
 OnError Goto ErrorNoFile
 Print #1, strMessage

ErrorNoFile:
End Sub