showsave if commondialog1. filename = "" then else kaydet end if diyalog penceresin de iki buton var kaydet ve iptal eğer böyle yaparsam kaydet diyince kaydediyor iptal diyince kaydetmiyor. Fakat benim istediğim ise diyalog pencersinde default olarak dosya adı dosya. txt olarak gelsin diyorum yani commondialog1. filename = "dosya txt" böylede diyince iptal dahi desem yinede kaydediyor. iptal diyince kaydetmese olmaz mı.

Teşekkürler

'dosyayı kapatıyoruz Form1. Caption = Left(CommonDialog1. FileTitle, Len(CommonDialog1. FileTitle) - 4) & " - Not Defteri" ' formun başına dosyanın adını yazıyoruz degisiklik = 0 ' dosya kaydedildi değişiklik degeri 0 hata: End Sub

' dosyayı açıyoruz Print

yok mu bunun bi çaresi örnek olarak paint diyebilirim misal kaydederken ekrana gelen diyalog penceresin deki dosya adında default olarak adsız geliyor ben default olarak ayarlarsam iptal diyince yine kaydediyor.

Not defterine benzer bir uygulama yapmıştım onun içinden farklı kaydet olayını ekliyorum Kod: Private Sub dosyafarklikaydet_Click CommonDialog1. Filter = "Metin belgeleri | . txt |Tüm Dosyalar | . " 'kayıt türünü belirliyoruz CommonDialog1. FileName = " . txt" ' pencere açıldığımda dosya ismine direk . txt" yazması için CommonDialog1. Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn 'dosyanın olup olmasığını ve üzerine yazılıp yazılmamasını kontrol ediyoruz CommonDialog1. ShowSave 'kaydet penceresini açar On Local Error GoTo hata ' eğer iptal dediysek kaydetmeyip hata: satırına atlıyor. Open CommonDialog1. FileName For Output As