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"
|clicking a shape in a frame array vb6||3||40|
|Retrieve Windows Office Files from Parallels 12 VM||9||61|
|Is there any way to copy all SSRS reports/datasets/data sources to new server?||3||52|
|VB 6 error 5 in windows 10 but not in XP||7||44|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!