Buyur Kardeşim Yaptım Kod: Private Sub Form_Load On Error GoTo Bitir 1 CommonDialog1. DialogTitle = "Metin Dosyalarını Aç" CommonDialog1. Filter = "Microsoft Windows Metin Belgesi| . txt" CommonDialog1. FileName = "C:\deneme. txt" '2 If CommonDialog1. FileName = "" Then Else '3 Dim Oku As String Text1. Text = "" Open CommonDialog1. FileName For Input As

Tek yapman gereken bu kodları Form_Load'a aktarmak

Bitir: End If End Sub Galiba istediğin budur formun load veya activate hiç farketmez birinini içerisine bu kodu yaz tamamdır. Kod zaten aynı benim tek yaptığım CommonDialog1. ShowOpen - CommonDialog1. FileName = "C:\deneme. txt" yazmak oldu. Bu arada textin multi line özelliğini ve scrollbar ı nı aç yoksa uzun yazıları okuyamazsın Kolay Gelsin... -

form_load a yapıştırdımda text1de gözükmedi c:// dosya yolunu nasıl belirliyeceğim?

dim dosya_yolu dosya_yolu = "C:\dosyayolu\metin. txt" Open dosya_yolu For Input As

Bitir: End If End Sub

a. s components olarak commondialog ekle ve buton içerisine bu kodu yaz Kod: Private Sub ac_Click On Error GoTo Bitir 1 CommonDialog1. DialogTitle = "Metin Dosyalarını Aç" CommonDialog1. Filter = "Microsoft Windows Metin Belgesi| . txt" CommonDialog1. ShowOpen '2 If CommonDialog1. FileName = "" Then Else '3 Dim Oku As String Text1. Text = "" Open CommonDialog1. FileName For Input As

tşk ederimde benim aradığım butona basıpte değil mesala c:/windows/deneme. txt dosyasını birşey sormadan direk aktaracak içine yani seçmek yerine kısa yolu girip. öyle.

Do While Not EOF(1) Input

tşk ederim sorun halholdu herkeze cok tşk ederim...

arkadasim adam zaten sana kodu vermis aslinda commondialog u sen gostermissin neyse önemli degil kod orada mevcut iki satir degistirerk istedigin olayi yapabilirsin...