flash takılımı kontrol edilsin

1 2
12/03/2012, 15:54

accessman

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

12/03/2012, 16:07

accessman

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
12/03/2012, 18:35

ozanakkaya

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
13/03/2012, 06:55

accessman

ç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

13/03/2012, 09:52

ozanakkaya

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
13/03/2012, 10:14

accessman

son hali bu sayılır

Ek Dosyalar

1 2