كيف أنسخ ما في الأداة common dialog

السلام عليكم ورحمة الله وبركاته

جرب هذا الكود

Private Sub Command1_Click()
On Error Resume Next
MKDir "C:\AB"
FileCopy CommonDialog1.FileName , "C:\AB\" & CommonDialog1.FileTitle
End Sub

ألف ألف مليون شكر

بارك الله فيك ورحم والديك .

وفرج الله عنك كل كربة .

جزاك الله عني كل خير .

أبو عبير 2005

Private Sub Command1_Click
on error resume next
mkdir "c:\ab"
dim Count1 as integer,STR1 as string
str1=dir("c:\ab\" & commondialog1.filetitle)
if str1<>"" then kill "c:\ab\" & commondilog1.filetitle
FileCopy CommonDialog1.FileName , "C:\AB\" & CommonDialog1.FileTitle
end sub