[Mido9]

(25-09-13, 10:43 PM)@@أبورائد@@ كتب : السلام عليكم ورحمة الله وبركاته


هكذا قبل إظهار مربع حفظ الملف

كود :

SaveFileDialog1.FileName = "default.txt"

السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا اخي الفاضل على المساعده 

ولكن للأسف لم تنجح الطريقة معي

وهذا هو الكود الخاص بي

كود :

   Dim savefiledialog As New SaveFileDialog
        SaveFileDialog1.FileName = "default.txt"
        savefiledialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        savefiledialog.Filter = "Text File (*.txt)|*.txt|All Files (*.*)|*.*"
        If (savefiledialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = savefiledialog.FileName
            TextBox1.Text = FileName
        End If

---

اخي الفاضل بااارك الله فيك ورزقك الفردوس الأعلى إن شاء الله

الخطأ كان لدي انا فى الكود 

تم التعديل و الحمد لله اشتغل

كود :

        SaveFileDialog1.FileName = "default.txt"
        SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
     Then
            TextBox1.Text = SaveFileDialog1.FileName

        End If

شكراااا لك