Forum
Bildirimler
Hepsini Temizle
İpucu
2
Yazılar
2
Üyeler
0
Reactions
705
Görüntüleme
Konu başlatıcı
Bilgisayarınızdaki tüm klasör isimlerini listelemek için bu kodları kullanabilirsiniz...
Sub Tüm_Klasörleri_Listele()
Dim NameSpace As Object, Item As Object, i As Long
Set NameSpace = GetObject("winmgmts:").instancesof("Win32_Directory"): i = 1
For Each Item In NameSpace
Cells(i, 1) = Item.Caption
i = i + 1
Next Item
Set NameSpce = Nothing: Set Item = Nothing: i = Empty
End Sub
Hoşça kalın ! 
Gönderildi : 16/11/2013 16:02
Paylaşım için teşekkürler.
1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.
Gönderildi : 17/11/2013 00:22