Uğraşa uğraşa istediğim şeyi nasıl yapacağımı buldum. Dosya Aç ve Kaydet pencerelerini nasıl açtıracağımı ve dosya yolunu nasıl seçtirebileceğimi buldum. Sanırım gerisini de sizin yukarıda vermiş olduğunuz çalışmanız yardımıyla çözebilirim. umarım bu mesajımı görürsünüz de daha fazla uğraşmazsınız.

İlginize, emeğinize sağlık Sayın Kur@l, çok teşekkür ederim.

Private Sub btnGozat_Click()



On Error GoTo hata



With Application.FileDialog(msoFileDialogOpen)

 .AllowMultiSelect = False

 .Filters.Add "Metin Dosyası", "*.txt", 1

' .InitialFileName = "*.txt"

 .Show

 

 txtDosyaYolu = .SelectedItems.Item(1)

 

End With

 

Exit Sub



hata:

 If Err.Number = 5 Then

 Exit Sub

 Else

 MsgBox "HATA OLUŞTU!-" & Err.Number & "-" & Err.Description, vbCritical

 End If



End Sub

Private Sub btnKaydet_Click()



Dim dosya As String



On Error GoTo hata



With Application.FileDialog(msoFileDialogSaveAs)

 .AllowMultiSelect = False

 .Title = "Kaydet"

' .InitialFileName = "Yardımlaşma" & ".txt"

 .Show

 

 dosya = .SelectedItems.Item(1) & ".txt"

 

End With



MsgBox dosya



Exit Sub



hata:

 If Err.Number = 5 Then

 Exit Sub

 Else

 MsgBox "HATA OLUŞTU!-" & Err.Number & "-" & Err.Description, vbCritical

 End If



End Sub