tmraslan Posted August 20, 2011 Share Posted August 20, 2011 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 Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted August 20, 2011 Share Posted August 20, 2011 (edited) [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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted August 20, 2011 Share Posted August 20, 2011 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] Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted August 20, 2011 Share Posted August 20, 2011 [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] Quote Link to comment Share on other sites More sharing options...
tmraslan Posted August 20, 2011 Author Share Posted August 20, 2011 Ç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? Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted August 20, 2011 Share Posted August 20, 2011 (edited) [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 Quote Link to comment Share on other sites More sharing options...
tmraslan Posted August 20, 2011 Author Share Posted August 20, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
tmraslan Posted August 20, 2011 Author Share Posted August 20, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
MostWanted Posted August 21, 2011 Share Posted August 21, 2011 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. Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted August 21, 2011 Share Posted August 21, 2011 [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] Quote Link to comment Share on other sites More sharing options...
tmraslan Posted September 2, 2011 Author Share Posted September 2, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted September 2, 2011 Share Posted September 2, 2011 @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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.