זה הקוד לשלב הראשון
Private Sub SaveBtn_Click() Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Dim strLink As String Set Rs = New ADODB.Recordset Set Conn = CurrentProject.Connection Rs.Open "links", Conn, adOpenStatic Do While Not Rs.EOF strLink = Rs![fname] MsgBox strLink Rs.MoveNext Loop Rs.Close End Sub
עכשיו, במקום לקחת את הערך הזה (הערך של העמודה מסוג היפר לינק) ולשים בתיבת הודעה, אני רוצה להעתיק ממש את הקובץ עצמו..לתוך C:\DEMO, כלומר להעתיק את כל הקבצים שבעמודה הזו לתוך התיקיה על המחשב. תודה רבה והמשך יום מקסים, יעל
המון תודה, יעל