Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Dim Db As Database Dim old_RST As Recordset Set Db = CurrentDb Set old_RST = Db.OpenRecordset("tbl_OldValues", dbOpenDynaset) Dim image1_Src As String Dim image1_Dst As String Dim fname1 As String Dim pfname1 As String Dim picpath As String Dim fs Set fs = CreateObject("Scripting.FileSystemObject") old_RST.MoveFirst picpath = old_RST![docPath] image1_Src = Me.Form1 '(This is a text box on the form holding the source location) image1_Dst = picpath '(This is the default destination location saved in a settings table) fs.CopyFile image1_Src, image1_Dst 'This is line that errors! fname1 = FileNameFromPath(Me.Form1) pfname1 = picpath & fname1
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!