در یافت از flash

[karmand]

قبلا دررابطه با دریافت و ار سال فایل روی فلاپی با همکاری دوستان کد زیر را دریافت و استفاده می شود
مشکلی که پیش امده بعضی از دفاتر فلاپی درایو شان خراب شده و میخواهند با فلاش ارسال نمایند
برنامهای بوسیله دوست دیگری در قسمت برنامه های کار بردی می باشد که مسیر انتخابی را در یک تکست ذخیره می کند میخواهم این دوتا را با هم استفاده کنم
برای ارسال و ذخیره روی فلاش درست شد
اما برای دریافت از فلاش مشکل دارم
در کد زیر که برای فلاپی نوشته شده و اقا مصطفی تکمیل نمودند در کجا به A اشاره شده تا بجای ان متغیری که از تکست روی فرم گرفتم بگذارم


If fil.FileExists(filename) Then
DoCmd.TransferDatabase acImport, "Microsoft Access", filename, acTable, "backup", "backup"
DoCmd.SetWarnings False
DoCmd.OpenQuery "q_app_from_a"
DoCmd.DeleteObject acTable, "backup"
DoCmd.SetWarnings True
MsgBox "ÇäÊÞÇá ÝÇíá ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ", vbInformation, ""
Else
If fil.Drives("a").IsReady = False Then
MsgBox "ÏíÓ˜Êí ÏÑæä Ýáǁí ÏíÓ˜ æÌæÏ äÏÇÑÏ", vbExclamation, ""
Else
MsgBox "ÝÇíá ãæÑÏ äÙÑ ÏÑ ÏíÓ˜Ê ãæÌæÏ äãí ÈÇÔÏ", vbCritical, ""
End If
End If