المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
جرب هذا
My.Computer.FileSystem.CopyFile( _
"d:\3OF9_NEW.TTF", _
"C:\windows\fonts\3OF9_NEW.TTF", overwrite:=True)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
اعتذر
شفت كلمة بسرعة
كتبت هذا ولم انتبه لمكان المشاركة انها في vb6
بالنسبة في vb6 جرب
Private Sub Command1_Click()
Name App.Path & "\3OF9_NEW.TTF" As "c:\windows\fonts\3OF9_NEW.TTF"
End Sub
---------
الصورة والمثال ليست ضرورية
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
you need permissions for accessing to fonts folder
Good luck
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
يقول لك الملف موجود اساسا
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات