منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

جرب هذا
My.Computer.FileSystem.CopyFile( _
"d:\3OF9_NEW.TTF", _
"C:\windows\fonts\3OF9_NEW.TTF", overwrite:=True)

(05-09-15, 04:53 PM)أبو عمر كتب : [ -> ]جرب هذا
           My.Computer.FileSystem.CopyFile( _
       "d:\3OF9_NEW.TTF", _
      "C:\windows\fonts\3OF9_NEW.TTF", overwrite:=True)

هذا الكود غير واضح النسبة لي


هل يمكن أن ترفق لي مشروع وبه الكود


أو صورة للكود داخل مشروع بالفيجول بيسك

اعتذر
شفت كلمة بسرعة
كتبت هذا ولم انتبه لمكان المشاركة انها في vb6
بالنسبة في vb6 جرب
Private Sub Command1_Click()
Name App.Path & "\3OF9_NEW.TTF" As "c:\windows\fonts\3OF9_NEW.TTF"
End Sub
---------
الصورة والمثال ليست ضرورية

(05-09-15, 08:46 PM)أبو عمر كتب : [ -> ]اعتذر
شفت كلمة بسرعة
كتبت هذا ولم انتبه لمكان المشاركة انها في vb6
بالنسبة في vb6 جرب
Private Sub Command1_Click()
Name App.Path & "\3OF9_NEW.TTF" As "c:\windows\fonts\3OF9_NEW.TTF"
End Sub
---------
الصورة والمثال ليست ضرورية

تظهر لي رسالة الخطأ هذه

you need permissions for accessing to fonts folder
Good luck

(06-09-15, 01:44 PM)أبو عمر كتب : [ -> ]you need permissions for accessing to fonts folder
Good luck

بعد التعديل اظهر لي هذه الرسالة

يقول لك الملف موجود اساسا

(06-09-15, 03:54 PM)أبو عمر كتب : [ -> ]يقول لك الملف موجود اساسا

الله يعطيك العافية