Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Private Sub Run_Report_Click() Dim db As Database Dim path_RST As Recordset Dim path_STR As String Dim image1_Src As String Dim image1_Dst As String Dim fname1 As String Dim pfname1 As String Dim msg As Integer Dim msg2 As Integer Dim fs Set db = CurrentDb Set path_RST = db.OpenRecordset("tbl_Path", dbOpenDynaset) Set fs = CreateObject("Scripting.FileSystemObject") image1_Src = path_RST![path] image1_Dst = "F:\" fs.CopyFile image1_Src, image1_Dst fname1 = Right(path_RST![path], (Len(path_RST![path]) - 30)) pfname1 = image1_Dst & fname1 msg = MsgBox("The copy of this spreadsheet you are viewing has been saved to your (F:) drive and named: " & fname1, vbOKOnly, "Working Copy") FollowHyperlink pfname1 End Sub
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.