Hesham
26 - 09 - 2009, 22:38
السلام عليكم ورحمة الله وبركاته
إن هذا المشروع من صنعي أستخدمت فيها أوامر كثيرة يمكنك تحميله من MegaUpload أو Media File
لتشغيل المشروع
media File (http://www.mediafire.com/?lzmllymyw1w)
megaupload (http://www.megaupload.com/?d=31XXUXGA)
لتشغيل البرنامج
megaUpload (http://www.megaupload.com/?d=RRKJVEC1)
تم الرفع علي MegaUpload فقط لأن الموقع لم يعد يفتح معي ولهاذا السبب سيتم رفعه علي Media File غداً بإذن الله
هناك عيب واحد فقط وهو أن ال Dialog يظهر مرتين فأريد أن تساعدوني في حل هذا الخطأ
صور البرنامج
http://www.hesnoman.net/upload/uploads/images/hesnoman-2201a43a62.jpeg
وأخيراً أشكر Mazen علي كتابة أمر التحويل لي
وأمر التحويل هو
هذي طريقة نسخ ملف
dim filetocopy as string
dim newcopy as string
filetocopy = "c:\test.txt"
newcopy = "c:\newtest.txt"
if system.io.file.exists(filetocopy) = true then
system.io.file.copy(filetocopy, newcopy)
msgbox("file copied")
end if
وهذي طريقة نقل ملف
بس اكيد يعتمد على اسم الملف لأنه يحتاج تعديل في الكود و filetomove و movelocation يحتاجلها Dim في البداية
filetomove = "c:\test.txt"
movelocation = "c:\ testfolder\test.txt"
if system.io.file.exists(filetomove) = true then
system.io.file.move(filetomove, movelocation)
msgbox("file moved")
end if
كان يقصد طريقة نسخ الملفات لكنه طريقة جيدة أيضاً لتحويلها
هههههههههههه
إلي اللقاء
إن هذا المشروع من صنعي أستخدمت فيها أوامر كثيرة يمكنك تحميله من MegaUpload أو Media File
لتشغيل المشروع
media File (http://www.mediafire.com/?lzmllymyw1w)
megaupload (http://www.megaupload.com/?d=31XXUXGA)
لتشغيل البرنامج
megaUpload (http://www.megaupload.com/?d=RRKJVEC1)
تم الرفع علي MegaUpload فقط لأن الموقع لم يعد يفتح معي ولهاذا السبب سيتم رفعه علي Media File غداً بإذن الله
هناك عيب واحد فقط وهو أن ال Dialog يظهر مرتين فأريد أن تساعدوني في حل هذا الخطأ
صور البرنامج
http://www.hesnoman.net/upload/uploads/images/hesnoman-2201a43a62.jpeg
وأخيراً أشكر Mazen علي كتابة أمر التحويل لي
وأمر التحويل هو
هذي طريقة نسخ ملف
dim filetocopy as string
dim newcopy as string
filetocopy = "c:\test.txt"
newcopy = "c:\newtest.txt"
if system.io.file.exists(filetocopy) = true then
system.io.file.copy(filetocopy, newcopy)
msgbox("file copied")
end if
وهذي طريقة نقل ملف
بس اكيد يعتمد على اسم الملف لأنه يحتاج تعديل في الكود و filetomove و movelocation يحتاجلها Dim في البداية
filetomove = "c:\test.txt"
movelocation = "c:\ testfolder\test.txt"
if system.io.file.exists(filetomove) = true then
system.io.file.move(filetomove, movelocation)
msgbox("file moved")
end if
كان يقصد طريقة نسخ الملفات لكنه طريقة جيدة أيضاً لتحويلها
هههههههههههه
إلي اللقاء