iyi günler

https://accesstr.net/konu-dosyayi-sikist...atsin.html

burada eklemiş olduğum programda
sıkıştırılan dosyanın konulacağı hedef klasör flash bellek seçilirse mesela
G:\hts
seçilirse eğer flash bellek takılı değilse hata veriyor
onun için programı hataya düşürmeden
ilgili yerde belirtilen adresin olup oladığına bakıp
ilgili adreste klasör yoksa bunu haber veren bir uyarı mesajı
nasıl verdirebiliriz

bu delphi de klasör kontrolu yapıyormuş

If DirectoryExists('C:\Golaks2') Then
ShowMessage('Var')
else
ShowMessage('Yok');

benim istediğim
flash bellek takılı değilse
"lütfen flash belleği taktından sonra tamamı tıklayın diyen bir mesaj çıksın
tamam deyince eğer flash takıldıysa kaldığı yerden devam etsin
takılı değilken tamam tıklandıysa kapanacak mesajı versin kapansın

Takılı olmayan belleği nasıl seçeceksiniz bilmiyorum ama aşağıdaki kod kontrol işlemini yapar.

On Error GoTo AccessTR_Hata

    ChDir "G:\"

    MsgBox "flash takılı"

AccessTR_Hata_Cikis:

    Exit Sub

AccessTR_Hata:

    If (Err.Number = 76) Then

        MsgBox ("lütfen flash belleği taktından sonra tamamı tıklayın")

    End If

    Resume AccessTR_Hata_Cikis

çok teşekkürler
varsayılan bilgilere göre program açılır açılmaz yedeği pressleyen kod yazdım
orada varsayılan "G:\" olabiliyor
bir de bu kodda

*************
MsgRes = MsgBox("Flash belleği varsayılan seçmişsiniz. flash belleği takarak devam etmek için tamamı tıklayınız.bilgileri değiştirmek için hayırı tıklayınız", vbYesNo Or vbQuestion)
If MsgRes = vbNo Then
devam kodları
else
ayarlama formu açılacak
end if
Exit Sub
**************
nasıl yapabiliriz

sn. accessman, uygulamanızın son halini ekleyin ve kontrol olayının nerede yapılmasını istediğinizi belirtin, yani form açıldığında mı, yedekleme yolunun güncelleştirme sonrasında mı veya yedek yolu değiştirmek için kullandığınız butona tıklandığında mı çalışmasını istiyorsunuz

son hali bu sayılır

Ek Dosyalar

YEDEK SAKLA.rar(265.55 KB)