Special Offer: Buy 1 course, get 2nd free! Buy the 'Managing Office 365 Identities & Requirements' course w/ Accelerated TestPrep, and automatically receive the 'Enabling Office 365 Services' course FREE!
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"
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Office applications crashing||7||25|
|Additional Controls in Excel VBA Does Not Show Anything||5||19|
|Developers / Staff Setup||10||29|
|Need VBA to color cell if 1st three numbers in Column C of Sheet1 match any of the numbers in Column A on Sheet2||22||37|
Join the community of 500,000 technology professionals and ask your questions.