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

اعزائي لو تكرمتم اريد طريقة كتابة الكود
حيث يقوم بحفظ ملف نصي وتكون القيمة الموجوده في 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


لمن يريد ان يستفيد منه

السلام عليكم
تم عمل مثال بسيط في المرفق حيث يوجد ملف yy.txt في مجلد المشروع وعند الضغط على زر حفظ الملف يتم حفظه في  (d)
وياخذ اسمه من text1
ارجو ان يكون هذا هو المطلوب
تحياتي لك

شاكر لك عزيزي السيد الغالي على تجاوبك معي

لدي استفسار بسيط اخر

وهو قبل ان أقوم بحفظ الملف اريد التأكد من ان الملف غير مجود
واذا كان موجود يقوم البرنامج بحذفه

با اعتبار ان القيمه التي في text ستكون اسم الملف


انا اعمل حاليا على هذا الكود الا انه يحدث خطا بان الملف غير موجود


If Dir("D:\my programs" & Text1.Text) <> "" Then
Kill ("D:\my programs\" & Text1.Text)
End If

شاكر ومقدر لك

السلام عليكم
في المرفق تجد ما طلبته ارجو ان يكون هو المطلوب
تحياتي لك