Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.