Const xxx = 1Call ShellExecute(Me. hwnd, "open", Trim , "", "", xxx) bu sekilde oldu hoca :D "açık mı var la" yazdı diye ban yiyen adam!

program dizinindeki bat dosyasinida calistiramiorm :S Shell "run. bat", vbNormalFocus diorm olmuor "açık mı var la" yazdı diye ban yiyen adam!

hoca explorer dediğin ne, ayrıca "\" işaretini koymamışsın hata verir tabii. şyle yaz.. folder = app. path & "\xxx.html" Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Private Sub Command1_Click folder = "explorer " & App. PathShell folder, vbNormalFocusEnd Subçalısıyor hocam, ne hatasi verdigini solersen daha cok yardimci olabilirz The king is bleeding.

Shell "run. bat" dersen ve senin programinin exesiyle run. bat ayni dizindeyse acilir. Fakat sistemin xp ise dos penceresi direkt acilip kapanacagindan goremiyor olabilirsin. klasor acmaya gelelim folder = "explorer " & App. PathShell folder, vbNormalFocus program yolunu explorer. exe ye parametre olarak veriorsun. webbrowser olayina bakamiyorum ne yazikki benim componentte bi problem var sanirim, ozellikleri listelemiyor :) The king is bleeding.

: gVer snn verdigin kodda buton a tiklayinca folder kısmı hata verior f1kr3t snn verdigin koddada hata verior en su sekilde yaptm sadece bilgi.html kısmında hata verdi Private Sub Form_Load On Error Resume NextFile1. Path = App. PathWebBrowser1. Navigate (File1. Path & "\" & bilgi.html) bilgi.html tırnak icinde olcak güzel karde$im :) Private Sub Form_Load On Error Resume NextFile1. Path = App. PathWebBrowser1. Navigate (File1. Path & "\" & "bilgi.html") screw you guys! i"m goin" hoooome!

buton 5 ne hoca :S eğer bi klasr açtırmak istiyorsan şyle yapalım.. mesela C de ali adlı bi klasr var ve onu açalım.. bunun için windowsun ShellExecute apisini kullanmamız gerekPrivate Declare Function ShellExecute Lib "shell32. dll" Alias "ShellExecuteA" As LongConst xxx = 1Call ShellExecute(Me. hwnd, "open", trim , "", "", xxx) dene bi bunu bakalım çalışacak mı Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

f8 le çalıştır programı. şu satıra gelince bak;WebBrowser1. Navigate (File1. Path & "\" & bilgi.html)file. path değerinde kendiliğinden "\" varmı? yada diğer "/" işareti koy. evet evet "/" bu işareti koy (:çünkü klasr işlemlerinde ters slaş "\"web işlemlerinde normal slaş "/" kullanılıyor. Kayalardan kayarım yoktur benim ayarım (;

ama Cok kasıntı yapıor :D tikliom bi 10 sn ole mal gibi oluor sonra acior :D tmm exe olarak kaydedince kasıntı masıntı kalmadi tıkır tıkır oluor eyw sağolasiniz :D "açık mı var la" yazdı diye ban yiyen adam!

tmmdirhepsi tmm f1kr3t eyw saolasn ogreniorz ywas ywas iste :D ama tek sorun su program dizinini actirmakta http://img126.imageshack. us/img126/9691/hataajs9. jpg hata burda gver "açık mı var la" yazdı diye ban yiyen adam!

hocam html yi fln hallettik sadece button 5 tiklantiginda program dizini acmasi gerekior onu hallemedim :S "açık mı var la" yazdı diye ban yiyen adam!

forma bi tane filelistbox ve webbrowser nesnesi ekliosn. Private Sub File1_Click WebBrowser1. Navigate (File1. Path & "\" & File1. FileName)End SubPrivate Sub Form_Load File1. Path = "C:\Inetpub\wwwroot\"End Sub path kısmında ben kendi dosyalarımın bulundugu yolu verdim. "" icersindeki kısımları silip app. path yazarsn programın oldugu dizini listeler. denedim calı$ıo sonra calı$mıo flan deme :D kolay gelsin. screw you guys! i"m goin" hoooome!

gVer snn verdigin kodda buton a tiklayinca folder kısmı hata verior f1kr3t snn verdigin koddada hata verior en su sekilde yaptm sadece bilgi.html kısmında hata verdi Private Sub Form_Load On Error Resume NextFile1. Path = App. PathWebBrowser1. Navigate (File1. Path & "\" & bilgi.html) "açık mı var la" yazdı diye ban yiyen adam!

button1 e tiklandiginda program dizinini acsin form_load da webbrowser1 program dizinindeki ahmet.html dosyasini gostersnbutton 2 ye tiklandiginda mehmet.html dosyasini okusun nası yapabilirim bunları :D "açık mı var la" yazdı diye ban yiyen adam!