sürücüleri görebilrmiyiz??

[udentr2002]

formun üzerine yerleştirdiğmiz (Visual Basic 6.0) da görmüştüm ama şimdi ismi aklımda değil formun üzerine yerleştiriyoruz sonra tıkaldığımızda c: sürüsücüsü, D: sürücüsü ve A sürücüleri çıkıyor hangisine tıkalrsak o sürücü içindeki dosyaları gösteriyor ve oradanda dosyaları açma imkanımız oluyordu bunu burda nasıl yapabiliriz????

 

[udentr2002]

arkadaşlar

bunun bir yolu yokmu ya olmuyorsada böyle bir şey yapabilme imkanıız yok deyin cevap verirseniz sevinirim

 

[Levent Menteşoğlu]

Böyle hazır bir özelliği sağlayan nesne varmı bilmiyorum ama aşağıdaki linkteki örnek dosyayı incelemenizi öneririm.

http://www.excel.web.tr/showthread.php?t=14847

 

[udentr2002]

teşekkürler levent bey

İşime yarayacak bu dosyanız çok güzel bi çalışma olmuş

 

[Zeki Gürsoy]

formun üzerine yerleştirdiğmiz (Visual Basic 6.0) da görmüştüm ama şimdi ismi aklımda değil formun üzerine yerleştiriyoruz sonra tıkaldığımızda c: sürüsücüsü, D: sürücüsü ve A sürücüleri çıkıyor hangisine tıkalrsak o sürücü içindeki dosyaları gösteriyor ve oradanda dosyaları açma imkanımız oluyordu bunu burda nasıl yapabiliriz????

Merhaba,
Sözkonusu VB6 nesnesidir, ama şu şekilde de yapabiliriz.

Private Sub UserForm_Initialize()
    Dim ds, dc, s
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set dc = ds.Drives
    For Each surucu In dc
        ComboBox1.AddItem surucu
    Next
End Sub

 

[udentr2002]

anemos hocam

tamamda forma bir şey eklemek zorunda değilmiyiz hani sürücüleri görebilmek için. dedimya VB 6.0 da görmüştüm toolbox a sağ tıklayıp additional controls da çıkan seçeneklerden birini işaretlediğimizde tıpkı tool box üzerindeki nesneler gibi bir nesne geliyordu ve onu forma eklediğimizde gerekli kodları yazdığımızda sürücüleri ve onların içindeki dosyaları görebilme şansımız oluyordu.. burda göremiyorum
birde verdiğiniz kodu nereye yazıcaz artı yazdıktan sonrada nasıl çalışıcak sonuçta bir yere tıkalyıp açılan kutuda sürücüler ve onların içindeki dosyaları görmek isitiyoruz belki ben anlatamadım tekrar bakabilrseniz çok sevineceği
mm

 

[Tankut SAZLI]

Sayın udentr2002;
Bahsettiğiniz VB nesnesi Drivelistbox.Bunu bildiğim kadarıyla normal yollardan Excel-VBA üzerinde kullanamıyorsunuz.(Tabi VB nin reference lerini VBA ya tanıtabilir ve kullanabilirseniz ya da bunu için oluşturulmuş özel bir ActiveX kullanırsanız o başka,denemedim).Fakat userform üzerine 1 tane combobox,iki tanede listbox ekleyip aşağıdaki kodları yazarsanız benzer bir sonuca ulaşabilirsiniz.

Private Sub ComboBox1_Change()
ListBox1.Clear
ListBox2.Clear
For Each klasor In CreateObject("Scripting.FileSystemObject").GetFolder(ComboBox1).SubFolders
ListBox1.AddItem klasor.Name
Next
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(ComboBox1).Files
ListBox2.AddItem dosya.Name
Next
End Sub
Private Sub ListBox1_Click()
On Error Resume Next
ListBox2.Clear
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(ComboBox1 & "\" & ListBox1).Files
ListBox2.AddItem dosya.Name
Next
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
    Dim cat, drv
    Set cat = CreateObject("Scripting.FileSystemObject")
    Set drv = cat.Drives
    For Each surucu In drv
        ComboBox1.AddItem surucu
    Next

End Sub

 

[udentr2002]

tankut hocam

harika olmuş eline sağlık. peki listbox2 de açılyor ya dosyalar onlara tıkladığımızda dosyanın açılması için bir şey yapılabilirmid yani dosyanın üzerine gelip tıkladığımızda o dosya açılabilirmi böyle bir şey yapabilirmiyiz

 

[Tankut SAZLI]

Dosyanıza bir Module ekleyin ve şu kodları oraya yazın(yapıştırın)

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" ( _
           ByVal lpFile As String, ByVal lpDirectory As String, _
           ByVal lpResult As String) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
           ByVal lpClassName As String, _
           ByVal lpWindowName As String) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
           ByVal hWnd As Long, ByVal lpOperation As String, _
           ByVal lpFile As String, ByVal lpParameters As String, _
           ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub DosyaAc()
  Dim RetVal As Integer
  Dim Buff As String
  Dim hWnd As Long
  Dim MyFile As Variant
  MyFile = UserForm1.ComboBox1 & deg & UserForm1.ListBox1 & "\" & UserForm1.ListBox2

  If Dir(MyFile) = "" Then
    MsgBox MyFile & " dosyası bulunamadı"
    Exit Sub
  End If

  Buff = String(260, 32)
  RetVal = FindExecutable(MyFile, vbNullString, Buff)
  If RetVal > 32 Then
    If Application.Version < 9 Then
      hWnd = FindWindow("ThunderXFrame", "")
    Else
      hWnd = FindWindow("ThunderDFrame", "")
    End If
    ShellExecute hWnd, "Open", MyFile, vbNullString, "C:\", 1
  Else
    MsgBox Dir(MyFile) & " dosyası ile ilişkili bir program bulunamadı !", vbExclamation
  End If
End Sub

Formunuzun kod bölümünede şu kodları ekleyin:

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
DosyaAc
Unload Me
End Sub

 

[udentr2002]

tankut hocam

ekledim ama bir hata veriyor dosyayı size gönderiyorum açmak için tıkladığımda hata veriyor

 

[Tankut SAZLI]

Module1 yukarıda verdiğim kodları yazmamışsınız.Onları ekleyin ve tekrar deneyin.

 

[udentr2002]

üstadım

haklısın bu defa yaptım çalışıyor yanlız dosyanın üzerine gelip çift tıkladığımızda bütün dosyalara bulunamadı diyor aslında var dosyam ama hepsine bulunumadı diyor neden acaba???