Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Join the community of 500,000 technology professionals and ask your questions.