تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ ملف باسم القيمة الموجوه في TEXT
#1
اعزائي لو تكرمتم اريد طريقة كتابة الكود
حيث يقوم بحفظ ملف نصي وتكون القيمة الموجوده في 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


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


الملفات المرفقة
.rar   حفظ ملف.rar (الحجم : 1.39 ك ب / التحميلات : 45)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
تم الشكر بواسطة: Ksa004
#3
شاكر لك عزيزي السيد الغالي على تجاوبك معي

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

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

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


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


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

شاكر ومقدر لك
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم
في المرفق تجد ما طلبته ارجو ان يكون هو المطلوب
تحياتي لك


الملفات المرفقة
.rar   حفظ ملف2.rar (الحجم : 1.66 ك ب / التحميلات : 57)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
Question [vb6.0] كيف امنع حفظ قناع Text وهوا بشكل التالي ؟؟ Microformt 1 502 30-09-22, 11:53 PM
آخر رد: Taha Okla
  اصدار الجدول الى الوورد باسم جديد gonm64 0 579 03-06-22, 02:49 PM
آخر رد: gonm64
  اريد طريقة لتنفيذ امر داخل TEXT بعد ضغط مفتاح ENTER محمد حمد محمد سليمان 2 1,010 25-01-22, 01:00 AM
آخر رد: محمد حمد محمد سليمان
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 1,119 02-10-21, 02:39 PM
آخر رد: Microformt
  [vb6.0] كيف يمكن إضهار الصوره تحت Text عند النقر على زر الامر ؟؟ Microformt 2 1,353 08-06-21, 04:42 PM
آخر رد: Microformt
Question [vb6.0] كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ Microformt 2 1,207 21-03-21, 10:39 PM
آخر رد: Microformt
  [vb6.0] كيف اشترط على المستخدم 14 رقماً في text ؟ Microformt 1 992 23-10-20, 01:18 AM
آخر رد: AL_BRNS
Question [vb6.0] هل يمكن كود يضلل النص داخل Text ؟؟ Microformt 1 1,359 17-07-20, 05:51 PM
آخر رد: Mohamad Anan

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


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