تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : نسخ ملف فونت إلى مساره في C:\Wndows\Fonts
#1
Photo 
السلام عليكم 
كل عام  وانتم بخير - - - أعضاء المنتدى الكرام





طلب : نسخ ملف فونت إلى مساره في C:\Wndows\Fonts

اريد نسخ ملف يسمى 3OF9_NEW.TTF

إلى المسار التالي

C:\Windows\Fonts

مع العلم انه يلزم عمل اذن لنسخ هذا الملف داخل ملفات الويندوز


أرجو الرد سريعا
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#2
جرب هذا
My.Computer.FileSystem.CopyFile( _
"d:\3OF9_NEW.TTF", _
"C:\windows\fonts\3OF9_NEW.TTF", overwrite:=True)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
(05-09-15, 04:53 PM)أبو عمر كتب : جرب هذا
           My.Computer.FileSystem.CopyFile( _
       "d:\3OF9_NEW.TTF", _
      "C:\windows\fonts\3OF9_NEW.TTF", overwrite:=True)

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


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


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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#4
اعتذر
شفت كلمة بسرعة
كتبت هذا ولم انتبه لمكان المشاركة انها في vb6
بالنسبة في vb6 جرب
Private Sub Command1_Click()
Name App.Path & "\3OF9_NEW.TTF" As "c:\windows\fonts\3OF9_NEW.TTF"
End Sub
---------
الصورة والمثال ليست ضرورية
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
(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
---------
الصورة والمثال ليست ضرورية



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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#6
you need permissions for accessing to fonts folder
Good luck
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#7
(06-09-15, 01:44 PM)أبو عمر كتب : you need permissions for accessing to fonts folder
Good luck

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

 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#8
يقول لك الملف موجود اساسا
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#9
(06-09-15, 03:54 PM)أبو عمر كتب : يقول لك الملف موجود اساسا

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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم