+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : حفظ ملف باسم القيمة الموجوه في TEXT (/showthread.php?tid=10877)
حفظ ملف باسم القيمة الموجوه في TEXT - Ksa004 - 08-12-14
اعزائي لو تكرمتم اريد طريقة كتابة الكود
حيث يقوم بحفظ ملف نصي وتكون القيمة الموجوده في Text اسم للملف
مثلا :
text1.text=" سبحان الله"
ActiveDocument.SaveAs2 FileName:=D:\vb\(Text1.Text).DOC
شاكر ومقدر لكل أعضاء المنتدى الكرام
شاكر لكم اعزائي وجدت الحل
Dim strFilename As String
strFilename = Text1.Text
MyWord.ActiveDocument.SaveAs FileName:="D:\good programs\" + strFilename, FileFormat:= _
wdFormatDocument
لمن يريد ان يستفيد منه
RE: حفظ ملف باسم القيمة الموجوه في TEXT - السيد الغالي - 08-12-14
السلام عليكم
تم عمل مثال بسيط في المرفق حيث يوجد ملف yy.txt في مجلد المشروع وعند الضغط على زر حفظ الملف يتم حفظه في (d)
وياخذ اسمه من text1
ارجو ان يكون هذا هو المطلوب
تحياتي لك
RE: حفظ ملف باسم القيمة الموجوه في TEXT - Ksa004 - 08-12-14
شاكر لك عزيزي السيد الغالي على تجاوبك معي
لدي استفسار بسيط اخر
وهو قبل ان أقوم بحفظ الملف اريد التأكد من ان الملف غير مجود
واذا كان موجود يقوم البرنامج بحذفه
با اعتبار ان القيمه التي في text ستكون اسم الملف
انا اعمل حاليا على هذا الكود الا انه يحدث خطا بان الملف غير موجود
If Dir("D:\my programs" & Text1.Text) <> "" Then
Kill ("D:\my programs\" & Text1.Text)
End If
شاكر ومقدر لك
RE: حفظ ملف باسم القيمة الموجوه في TEXT - السيد الغالي - 08-12-14
السلام عليكم
في المرفق تجد ما طلبته ارجو ان يكون هو المطلوب
تحياتي لك