automatically detect csv files is exist in the folder or not, if exist then
sent it to the mapped network drive and after sending successfully delete original csv file, and go for another csv file...........till all csv file sent success fully,
and every minute function will check csv file exist or not.
and i want all this process automatically
my approach is for just local drive
not for mapped network drive
Note : all csv file with different different name.
Dim txtdbpath As String 'this is your database file
Dim txtdbpathcopy As String 'this is your copy path
Dim intResponse, fs
' the following double checks, Are you sure?
' intResponse = MsgBox("Are you sure that you wish to make a copy of your database file now?", vbYesNo + vbDefaultButton1 + vbQuestion, "Crystal")
' If (intResponse = 6) Then
Set fs = CreateObject("Scripting.FileSystemObject")
' txtdbpath = frmMain.cdgDialog.FileName
' txtdbpath = "D:\Crystal\23456.csv"
txtdbpath = App.Path & "\" & "23456.csv"
txtdbpathcopy = "D:\"
fs.CopyFile txtdbpath, txtdbpathcopy, True
'''MsgBox "Backup Done Successfully", vbInformation, "Crystal"