Fileopendialog() Hata Alıyorum

asmazh · June 28, 2011

Öncelikle merhabalar,
şu anda autoit ile bir proje hazırlıyorum kuyruğuna geldim hiç beklemediğim bir yerden durmadan hata alıyorum neyse uzatmadan hatayı soyliyeyim:
şimdi bir buton a tıklayacagim FileOpenDialog açılacak bir resim seçeceğim ve seçtiğim resimin ismi inputa yazılacak (çok basit gözüküyor değilmi? Zaten basit ama buton a tıklıyorum fileopendialog u resim seçmeden kapatınca program donuyor. Bunu nerden baksanız bu gün 50 yöntem deniyerek çözmeye çalıştım olmadı tiksindim deli olacam bunun sebebini söylerseniz sevinirim ha bide çözümünü .) şimdiden teşekkürler arkadaşlar...

Edited June 28, 2011 by asmazh

blue_life · June 28, 2011

@asmazh

Ama ilgili kısmın kodlarını vermemişsin. Nerde hata yaptığını nasıl anlayalım ki!
Neyse sana basit bir gui örneği vereyim. Umarım işine yarar...

[codebox]Local $File_OpenDialog
Local $Form1 = GUICreate("Form1", 350,200)
Local $Input1 = GUICtrlCreateInput("", 10, 10, 250, 20)
Local $Button1 = GUICtrlCreateButton("...", 270, 10, 70, 20)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

Case $Button1
$File_OpenDialog = FileOpenDialog("Dosyanı seç!", @WindowsDir & "\", "Images (*.jpg;*.bmp)", 3,"", $Form1)
If Not @error Then
GUICtrlSetData($Input1,$File_OpenDialog)
EndIf
EndSwitch
WEnd[/codebox]

asmazh · June 29, 2011

@bluelife
ilgilendiğin için teşekkür ederim.
Hiç ummadığım bir hata hiç ummadığım bir yerden gelmiş "While" bir döngü koymuşum ondan miş boşuna kendimi o kadar sinirlendirmişim:)
lakin bir bir kaç sorum var size autoit hakkında siz bilirsiniz
1. Sorum: programımı proceslist de görünmesini istemiyorum yani "görev yöneticisi\işlemler" de görünmesini istemiyorum bunu autoit ile yapabilirmiyim.
2.sorum: siz bir aralar bl_winlock diye bir program yazmıştınız ve bunun autoit kodlarını vermiştiniz o kodları dün inceledim herşey güzellde o kodlar arasında yaklaşık bir kaç sayfalık karma karışık kodlar var "545160050101010020010004001010" bu böyle sürüyor herşeyi anladım bu kodları anlamadım birde bunları dll dosyası olarak kaydediyorsunuz bunları siz nasıl yazdınız yoksa siz yazmadınız hazırda mı var windows da anlamı nedir o kodların (biraz hikaye yazdım gibi oldu herhalde)

blue_life · June 29, 2011

@asmazh

Cevap 1: Bu konu hakkında bilgim yok. Ama sadece görev yöneticisi için. bir döngü içinde kontrol yapılıp silinebilir.
Heralde böyle bir örnek paylaşmıştım... Linkini bakayım...

[tnctr='topic/171627-goerev-yoeneticisindeki-listeye-mudehale-etmek']Konu Burda[/tnctr]

Cevap 2: Hatırladığıma göre orda ilgili dll dosyasını, script içine almıştım. Ordaki dğerler heralde ilgili dll dosyasıyla ilgili.
Yani dll dosyasının binary değeri bir değişkene aktarılıp, çalıştırıldığında ilgili konuma kayıt edilmesi sağlanıyordu...

Kısaca ordaki yapılan işlem Fileinstall komutuylada yapılabilir. Böyle şeylere gerek yok!

asmazh · June 29, 2011

@blue_life
verdiğiniz örnek işime yaradı ellerinize sağlık. Yazdığım programın şaşaalı bir temasının olmasını istiyorum bir şeyler yaptım ama şu butonlar bozuyor butona verdiğim icon resim güzelde butonun köşeleri bozuyor işi kenarları resme dail olmuyor beyaz gözüküyor sizin autoit ile yazdığınız programların çoğuna baktım 4/4 luk butona verdiğiniz resimler uyuyor yani :resim buton a değil buton resme uyuyor. Boş bir vaktinizde böyle basit anlaşılacak bir biçimde tema yapma amaçlı bir gui tasarlarsanız ve buraya koyarsanız sevinirim.

Edited June 29, 2011 by asmazh

SimpsoN_Bart · June 29, 2011

Dostum bu dediğini Gerekli UDF lerle yapabilirsin.Bende bi çalışmamda bu sorundan çok çektim.de ondan biliyorum.BluLife hocamız yardımcı olacağını düşünüyorum. Olmazsa pm at benim arşivimde olması lazım kullanırsın.Saygılar..

asmazh · June 29, 2011

@SimpsoN_Bart
ilgilendiğin için teşekkürler
Blue_Life in işi olabilir. sen buradan versen ben indirsem basit bir örneğini makbüle geçer.
hem BlueLife'i rahatsız etmem.
bende senin gibiyim çok çektim çekeceğimde herhalde

blue_life · June 29, 2011

@asmazh

Bana küçük bir önek verirsen, sana nerde hata yaptığını, veyahut nasıl yapman gerektiğini gösteren komutları verebilirim!
Ben genelde icon veyahut bmp kullanıyorum.
Png için bir ek komut (udf) gerektiğinden png formatını çalışmalarımda kullanmıyorum...

korasoglu · July 2, 2011

hocam bu isteğin tam tersi istediğimin bir klasörün içeriğini flasha nasıl kopyalatırız. ama diyelim ki ikitane usb takılı onlarıda görecek biz seçeceğiz kopyalama gerçekleşecek CombaBox olabilir mesela...

MostWanted · July 3, 2011

http://www.tnctr.com/topic/95572-guvenli-usb-kaldyrycy-12-03022010-guncellendi/

Her şeyden önce örnekleri incele.Bak burda ben bütün çıkarılabilir aygıtları listelemiştim yani bu örnekte.Sende burda nasıl listelediğimi araştır ve öğren sonra dediğini yap.

Edited July 3, 2011 by MostWanted

blue_life · July 3, 2011

@korasoglu

[b]DriveGetDrive[/b] komutuyla sürücülerini listeyebilirsin.
Guili basit bir örnek vermem gerekirse;

[codebox]Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"

Global $FOLDER = "Deneme_123"
If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa!
MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!")
Exit 1
EndIf

Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 100)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)

Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
MsgBox(64,"",$ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER)
;~ DirCopy($ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER)
EndSwitch
WEnd

Func _Update_Drv()
Local $LIST[2]
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)

$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc[/codebox]

korasoglu · July 3, 2011

hocam kopyalama yapmıyor Deneme_123 klasörünü oluşturdum içine text attım kopyalama yapmıyor

blue_life · July 3, 2011

@korasoglu

Şuan kodlarda pasif durumda! Bu yüzden kopyalama yapmaz.
Ilgili mesaj kısmını kendine göre düzenlemelisin!

[codebox]Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"

Global $FOLDER = "Deneme_123"
If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa!
MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!")
Exit 1
EndIf

Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 100)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)

Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
If StringLen($GREAD) <> 2 Then ContinueLoop
;MsgBox(64,"",$ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER)
DirCopy($ScriptDir & $FOLDER , $GREAD & "\" & $FOLDER)
EndSwitch
WEnd

Func _Update_Drv()
Local $LIST[2]
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)

$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc[/codebox]

korasoglu · July 3, 2011

hocam kusura bakmayın bilmediğim için soruyorum kendinize göre düzenleme yap demişiniz yapamadım mesela belirdeğimiz klasörün içeriğini nasıl kopyalatırız şuda eklense browse eklense varsayılan uygulamanın olduğu klasör olsa sürücü seçilip klasör seçilse kopyalama yapılsa eğer sizi kullandığımı düşünüyorsaniz lütfen cevap vermeyin..

bu arada size özel mesaj gönderilemiyormu acaba olmuyor...

ilgili yerlere açıklama koyarsanız daha makbule geçer başka zaman sizi yormam

blue_life · July 4, 2011

@korasoglu

Ilk önce guini tasarlayıp (koda form designer ile), kodlarını bizimle paylaş.
Gui elemanlarına fonksiyon atamamk için yardımcı olmaya çalışırım...

Kolay gelsin...

korasoglu · July 5, 2011

hocam ceva için biraz geç kaldım özür dilerim.
son verdiğiniz örnek tam istediğim sadece deneme_123 klasörünü değil içinde ne varsa onu kopyalaması mümkünmü.

blue_life · July 6, 2011

@korasoglu

Kısaca;
[codebox]Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"

Global $FOLDER = "Deneme_123"

If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa!
MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!")
Exit 1
EndIf

Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 100)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)

Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
If StringLen($GREAD) <> 2 Then ContinueLoop
;MsgBox(64,"",$ScriptDir & $FOLDER & @CRLF & $GREAD & "\" & $FOLDER)
DirCopy($ScriptDir & $FOLDER , $GREAD & "\",1)
EndSwitch
WEnd

Func _Update_Drv()
Local $LIST[2]
;Local $R_DRV_LIST = DriveGetDrive("ALL")
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)

$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc[/codebox]

korasoglu · July 6, 2011

hocam ben şöyle yapmıştım
Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"
Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 100)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)

Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
Global $Button1 = GUICtrlCreateButton("BEKLEYİNİZ", 10, 55, 200, 24,1)
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
If StringLen($GREAD) <> 2 Then ContinueLoop
DirCreate($GREAD & "\deneme\Bluelife")
DirCreate($GREAD & "\deneme\korasoglu")
DirCreate($GREAD & "\deneme")
DirCreate($GREAD & "\autoit")
DirCreate($GREAD & "\autoit2")
FileCopy($ScriptDir & "usb\deneme\*.*", $GREAD & "deneme")
FileCopy($ScriptDir & "usb\*.*", $GREAD)
FileCopy($ScriptDir & "usb\deneme\Bluelife\*.*", $GREAD & "deneme\Bluelife\")
FileCopy($ScriptDir & "usb\deneme\korasoglu\*.*", $GREAD & "deneme\korasoglu\")
Global $Button1 = GUICtrlCreateButton("TAMAMLANDI", 10, 55, 200, 24,1)

EndSwitch
WEnd

Func _Update_Drv()
Local $LIST[2]
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)

$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc

fakat kopyalama başlayınca butonun yazısı ve bitince değişsin diye çalıştım fakat olmadı herhalde döngünün içine oturmadı bu kodda hata nerede

hocam birde gozat buttonu eklesek aynı görevi nasıl yapar

Edited July 6, 2011 by korasoglu

blue_life · July 7, 2011

@korasoglu

Dün biraz meşguldüm ve bu nedenle yanıt veremedim.
Kusura bakma!

Neyse aşağıdakini gibi bir şey mi istiyorsun?
[codebox];#NoTrayIcon

Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"

Global $FOLDER = "Deneme_123"

If FileExists($ScriptDir & $FOLDER) = 0 Then ;Deneme klasörü yoksa!
MsgBox(16,"",$ScriptDir & $FOLDER & " klasörü bulunamadı!")
Exit 1
EndIf

Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 200)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)

Global $Label2 = GUICtrlCreateLabel("Klasör", 10, 50, 200, 15)
Global $Input1 = GUICtrlCreateInput($FOLDER, 10, 65, 175, 20)
Global $BTN_FLD = GUICtrlCreateButton("...", 190, 65, 20, 20)

Global $BTN_COPY = GUICtrlCreateButton("Kopyala", 10, 95, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $BTN_FLD
_FSelectFolder($Input1,$Form1)
Case $BTN_COPY
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
If StringLen($GREAD) <> 2 Then
MsgBox(16,"Hata!","Herangi bir sürücü seçili deyil!",0,$Form1)
ContinueLoop
EndIf
$FOLDER = StringStripWS(GUICtrlRead($Input1),3)
If $FOLDER = "" Or FileExists($ScriptDir & $FOLDER) = 0 Then
MsgBox(16,"Hata!","Kopyalanacak klasör bulunamadı!",0,$Form1)
ContinueLoop
EndIf
GUISetState(@SW_DISABLE)
GUICtrlSetData($BTN_COPY,"BEKLEYİNİZ")
DirCopy($ScriptDir & $FOLDER , $GREAD & "\",1)
GUICtrlSetData($BTN_COPY,"Kopyala")
GUISetState(@SW_ENABLE)
MsgBox(64,"","Işlem başarıyla tamamlandı!",0,$Form1)
EndSwitch
WEnd

Func _FSelectFolder($FS_INPUT,$FS_hwnd)
Local $FSF = FileSelectFolder("Içeriği kopyalanacak klasörünü seç!",$ScriptDir,2,"",$FS_hwnd)
If $FSF = "" Then SetError(1,0,"")
$FSF = StringTrimLeft($FSF,StringLen($ScriptDir))
GUICtrlSetData($FS_INPUT,$FSF)
Return $FSF
EndFunc

Func _Update_Drv()
Local $LIST[2]
;~ Local $R_DRV_LIST = DriveGetDrive("ALL")
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)

$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc[/codebox]

korasoglu · July 7, 2011

hocam evet istediğim budur deneme _123 yerine aynı gözat açılınca illa deneme_123 yerine seçilen klasörü kopyalasa oda olabilirmi gerek yok dersen bu işimi görüyor ama artısı olursa daha hoş olur...

blue_life · July 7, 2011

@korasoglu

Malesef anlamadım! Biraz daha düzgün yazmalısın...

[b]Global $FOLDER = "Deneme_123"[/b] satırındaki [b]Deneme_123[/b] değerini silersen herangi bir klasör olmaz.
Veyahut istediğin isimi o satıra girebilirsin. [b]Global $FOLDER = "Test_123"[/b]

korasoglu · July 8, 2011

kullanıcı aynı zamanda gözata tıklatığı zaman herhangi istediği bir klasörüde kopyalasa demiştim ha bu arada konu iki sayfaya çıkmış gözümden kaçmış o yüzden geç cevap verdim

blue_life · July 8, 2011

@korasoglu

Aşağıdaki gibi bir şeymi istiyorsun?
[codebox];#NoTrayIcon

Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"

Global $FOLDER1 = "Deneme_123"
Global $FOLDER2

If FileExists($ScriptDir & $FOLDER1) = 0 Then ;Deneme klasörü yoksa!
MsgBox(16,"",$ScriptDir & $FOLDER1 & " klasörü bulunamadı!")
Exit 1
EndIf

Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 200)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)

Global $Label2 = GUICtrlCreateLabel("Klasör", 10, 50, 200, 15)
Global $Input1 = GUICtrlCreateInput($FOLDER2, 10, 65, 175, 20)
Global $BTN_FLD = GUICtrlCreateButton("...", 190, 65, 20, 20)

Global $BTN_COPY = GUICtrlCreateButton("Kopyala", 10, 95, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $BTN_FLD
_FSelectFolder($Input1,$Form1)
Case $BTN_COPY
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
If StringLen($GREAD) <> 2 Then
MsgBox(16,"Hata!","Herangi bir sürücü seçili deyil!",0,$Form1)
ContinueLoop
EndIf
GUISetState(@SW_DISABLE)
GUICtrlSetData($BTN_COPY,"BEKLEYİNİZ")

$FOLDER2 = StringStripWS(GUICtrlRead($Input1),3)
If $FOLDER2 <> "" Or FileExists($ScriptDir & $FOLDER2) = 0 Then
DirCopy($ScriptDir & $FOLDER2 , $GREAD & "\",1)
EndIf

DirCopy($ScriptDir & $FOLDER1 , $GREAD & "\",1)
GUICtrlSetData($BTN_COPY,"Kopyala")
GUISetState(@SW_ENABLE)
MsgBox(64,"","Işlem başarıyla tamamlandı!",0,$Form1)
EndSwitch
WEnd

Func _FSelectFolder($FS_INPUT,$FS_hwnd)
Local $FSF = FileSelectFolder("Içeriği kopyalanacak klasörünü seç!",$ScriptDir,2,"",$FS_hwnd)
If $FSF = "" Then SetError(1,0,"")
$FSF = StringTrimLeft($FSF,StringLen($ScriptDir))
GUICtrlSetData($FS_INPUT,$FSF)
Return $FSF
EndFunc

Func _Update_Drv()
Local $LIST[2]
;~ Local $R_DRV_LIST = DriveGetDrive("ALL")
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)

$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc[/codebox]

korasoglu · July 8, 2011

hocam emeğine sağlık harika olmuş iyiki varsın...
yalnız derdimi anlatıncaya kadar bayağı uğraştık...
üç kafadar amerikaya geziye giderler tabiki birisi kekeme neyse hava limanına inerler kekeme elinde 10 tane jeton arkadaşlarını arar olay şu biz havaalındayız gel bizi al fakat kekeme başlar eeeeeee bbbbiiiiz hhhhaaaaaaaaavvvvaalındayız geldiyinceye kadar dokuz jeton gider fakat derdini anlatamaz son jetonda arkadaşı alır ahmet biz alandayız lütfen gelip bizi alırmısın der kapatır kekeme arkadaşına şöyle bir bakar tek jetonla işi halledince valllllaaaa böööööööyüüüüüük aaaaadamsın demiş...
Vallahi büyük adamsınız valla...

blue_life · July 8, 2011

@korasoglu

Rica ederim, bir şey deyil.

Kodlama yapmadan önce, taslak olarak kafada tasarlamak çok önemlidir.
Eğer bir plan çerçevesinde haraket edersen, yapmak istediğini daha kısa sürede yapabilirsin.
Bu yüzden yapmak istediğini aklında iyi tasarlayıp, yardım istediğinde de karşı taraftakinin iyi anlayabileceği bir biçimde anlatabilmen çok önemli!

Hikaye idare eder

Sign In

Fileopendialog() Hata Alıyorum

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members