Synthetic Transaction Monitoring that you need for the day to day, which ensures your business website keeps running optimally, and that there is no downtime to impact your customer experience.
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.
Join the community of 500,000 technology professionals and ask your questions.