sürücü listesi

[Yüksel Varlı]

Merhaba,
Userform üzerindeki bir Comboboxta, bilgisayarımızda bulunan sürücüleri listeletebilir miyiz?
A Sürücüsü
C Sürücüsü
D Sürücüsü
F Sürücüsü
G Sürücüsü gibi

Selamlar

 

[udentr2002]

başlığı inceleyin güzel bi çalışma

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

 

[Yüksel Varlı]

Sayın udentr2002,
Soryu yazdıktan sonra bahsettiğiniz konuyu gördüm. Ama istediğim şey sürücülerin Combo boxta sıralanması...
Sevgili MAhmut hocamın kodları ile konunun çözümüne yaklaştım. Fakat Artık gecenin bu saatinde fazla çözüm üretemiyorum.
Şöyle

Sub Sürücü_İsimleri()
Dim ds, dc, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set dc = ds.Drives
For Each sürücü In dc
s = s & vbCrLf & sürücü
Next
MsgBox s
End Sub
Sabah ola hayrola...

 

[Tankut SAZLI]

Sayın Yüksel VARLI;
Şu kodları denedinizmi;

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

____________________
DİĞER ÇALIŞMALAR

ACCESS GÖRSEL EĞİTİM
USERFORM GÖRÜNÜMLERİ
ÖĞRENCİ TAKİP PROGRAMI(Excel ile Access VeriTabanı Uygulamas&#305
KİMLİK SORGULAMA(web üzerinden)
LİSTVİEW UYGULAMASI
BİLDİRİM ALANINA MİNİMİZE(VB6)
____________________

 

[Yüksel Varlı]

Sayın Sazlı,
Tam yatmaya hazırlanıyordum ki "Gün doğmadan neler doğar" sözünü ispatlarcasına cevabınız geldi. Kodları Denedim. İşlem tamam. Yaptığım çalışmayı başka bilgisayarlarda doğru çalıştırabilmek için böyle bir şeye ihtiyacım vardı.
Teşekkürler

 

[udentr2002]

tankut hocam

bunları comboboxda gösterdik tamam fakat sürücülerdeki dosyaları ve onların altındaki dosyaları görüp dosyalara çift tıkladığımızda o dosyanın açılması için ne yapmalıyız??

 

[Tankut SAZLI]

Sayın Varlı;
Önemli değil,ben teşekkür ederim ki gecenin bu saatinde bile nezaketinizi uyutmamışsınız.

Sayın udentr2002;
Sanırım daha önceki başlığınızda yanıtlamaya çalışmıştım.Hata ile mi karşılaştınız anlamadım.Karşılaştıysanız hata nedir?

 

[udentr2002]

tankut hocam

öncelikle ilginiz için teşekkürler dediklerinizi uyguluyorum yanlız comboboxda sadece sürücülerin adları çıkıyor sürücüler içindeki dosyaları göremiyorum??

 

[Tankut SAZLI]

Şöylr bir örnek vermeye çalışim.Ben denedim çalışıyor.