تقييم الموضوع :
  • 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 ) ضيف كريم