E Sürücü Kontrol

[tmraslan]

E Sürücüye dosya kopyalıcam fakat E sürücü takılı olmadığı zaman lütfen E sürücüyü takınız diye uyarı vermesini istiyorum fakat nasıl yapcağımı bilmiyorum.Yardımlarınızı bekliyorum

[SimpsoN_Bart]

[font="Georgia"]
[font="Georgia"][font="arial, verdana, tahoma, sans-serif"][font="Georgia"]Umarım yardımcı olmuşumdur Yalnız burda e: sürücüsü takılı ise program çıkış yapar bunu yapmasını istemiyorsan Exit bölümünü silersin.Uyarı vermesini de istemiyorsan msgbox bölümlerini silebilirsin.Neyse kolay gelsin..[/font]
[/font][/font]
[codebox]
_SK_DRIVE_CHECK()
Func _SK_DRIVE_CHECK()

$aDrives = DriveGetDrive("All")

For $i = 1 To $aDrives[0]
If $aDrives[$i] = "e:" Then
MsgBox(64, "UYARI", "E: Sürücü Takılı Durumda")
Exit
EndIf
Next
MsgBox(16, "HATA! Sürücü Bulunamadı", "Lütfen E: Sürücüsünü Takınız")
EndFunc ;==>_SK_DRIVE_CHECK[/codebox]

Alternatif olarak da bunu kullanabilirsin.

[codebox]DriveGetType("E:")
If Not @error Then
MsgBox(64, "Uyarı", "E: Sürücüsü Takılı Durumda.")
Else
MsgBox(16, "Hata! Sürücü Bulunamadı!", "Lütfen E: Sürücüsünü Takınız.")
EndIf[/codebox]
[/font]

Edited August 20, 2011 by SimpsoN_Bart

[blue_life]

Bu konuda DriveStatus daha mantıklıdır.
[codebox]Local $Drive = "E:"
If DriveStatus($Drive) = "READY" Then
MsgBox(64, "Uyarı", "E: Sürücüsü Takılı Durumda.")
Else
MsgBox(16, "Hata! Sürücü Bulunamadı!", "Lütfen E: Sürücüsünü Takınız.")
EndIf[/codebox]

[SimpsoN_Bart]

[font="Georgia"]Evet katılıyorum böyle tam sonuç alınabilir Fakat evde olmadığım için bu aklıma gelmemişti hemen yazayım dedim.[/font]

[tmraslan]

Çok Sağolun hocam...Peki bir sorum daha olacak ban kopydirt komutuyla e sürücüye dosya kopyalamak istiyorum.E sürücü yok uyarısından sonra takılınca kopyalamasını nasıl sağlayabilirim?

[SimpsoN_Bart]

[font="Georgia"]Öncellikle şunu belirteyim eğer klasör kopyalaycaksan DirCopy komutunu kullanmalısın dosya kopyalamak için de FileCopy komutu kullanılır. Yalnız ben şunu anlayamadım takılmadan sonra tekrar niye kopyalatmak istiyorsun ki ? Bunu kodu kullanmana gerek kalmaz o zaman veya ben mi yanlış anladım Tam olarak ne yapmak istiyorsun.?[/font]

Edited August 20, 2011 by SimpsoN_Bart

[tmraslan]

Hocam ben bir stok yazılımın veri tabanını yazılım kapandıktan sonra yazılımdan E sürücüye kopyalamak istiyorum.Herleş tamam fakat E sürücüyü takmazsam kopyaladan atlıyor sadece uyarıyor.Bende acaba hatayı verdikten sonra taksak kendi kopyalarmı diye düşünmüştüm.Bunu anlatmak istemiştim
Yada yeni aklıma altarnatif geldi.Hocam bu tam olarak stok yazılımını açıyor kapattıktan sonra kopyalama işlemini yapıyor.Bu kodu en başa yazarsam e sürücü kontrolünü yapar.Eğer e sürücüyü bulamaz ise sonraki işlemleri nasıl yapmamasını sağlarım?

Edited August 20, 2011 by tmraslan

[tmraslan]

Hocam yardımınız için çok sağolun biraz kurcalayınca alternatif yöntemle yaptım.Çok da basitmiş aslında sadece Exit yazmak yetiyormuş Benim gibi takılan arkadaşlar için kodu veriyim;
[codebox]Local $Drive = "E:"
If DriveStatus($Drive) = "READY" Then

Else
MsgBox(16, "Hata! Sürücü Bulunamadı!", "Lütfen E: Sürücüsünü Takınız.")
Exit
EndIf[/codebox]
Bu kod E sürücü takılı değilken sonraki işlenlerin yapılmasını engelliyor.

Edited August 20, 2011 by tmraslan

[MostWanted]

If DriveStatus("E:") <> "READY" Then
MsgBox(16, "Hata! Sürücü Bulunamadı!", "Lütfen E: Sürücüsünü Takınız.")
Exit
EndIf

değil için <> işaretini kullanabilirsin.

[SimpsoN_Bart]

[quote name='tmraslan' date='21 August 2011 - 00:53 ' timestamp='1313884428' post='1067086']
Hocam yardımınız için çok sağolun biraz kurcalayınca alternatif yöntemle yaptım.Çok da basitmiş aslında sadece Exit yazmak yetiyormuş Benim gibi takılan arkadaşlar için kodu veriyim;
[codebox]Local $Drive = "E:"
If DriveStatus($Drive) = "READY" Then

Else
MsgBox(16, "Hata! Sürücü Bulunamadı!", "Lütfen E: Sürücüsünü Takınız.")
Exit
EndIf[/codebox]
Bu kod E sürücü takılı değilken sonraki işlenlerin yapılmasını engelliyor.
[/quote]

[font="Georgia"]Ben ilk yazdığım da exit vardı zaten Neyse işine yaradıysa ne mutlu.[/font]

[tmraslan]

Peki hocam sürücüde örneğin x.txt dosyası olan sürücüyü kontrol edecek bir kod yazamaz mıyız?Aynı işlemi x.txt dosyası olan sürücüye yapacak

Edited September 2, 2011 by tmraslan

[blue_life]

@tmraslan

Kısaca;
[codebox]Global $SurucuyuBul = _Blue_Find_Drive("x.txt")
If @error Then
MsgBox(16,"","Sürücü buluanamdı!")
Exit
EndIf

MsgBox(64,"","Sürücü bulundu" & @CRLF & $SurucuyuBul)

Func _Blue_Find_Drive($Flag_File)
Local $DriveGet = DriveGetDrive( "all" )
If NOT @error Then
For $i = 1 to $DriveGet[0]
$DriveGet[$i] = StringLeft($DriveGet[$i],2)
If DriveStatus($DriveGet[$i]) <> "READY" Then ContinueLoop
If FileExists($DriveGet[$i] & "\" & $Flag_File) = 1 Then
Return $DriveGet[$i] & "\"
EndIf
Next
EndIf
Return SetError(1,0,0)
EndFunc[/codebox]