[]
klasör isimlerini excelde listelemek.
Filmleri listelemek istiyorum. tek tek yazmakla bitmez. varmı kolay bir yolu?
ben Ubuntu'da shell kullanarak
"ls Videos/Filmler -R >Desktop/filmlistesi.text" yapıyorum bu durumda da bana masaüstümde filmlistesi.text adında içerisinde Videos/Filmler klasöründe yer alan bütün dosyaların olduğu bir dosya oluşturuyor hatta sadece mkv ya da avi uzantılı dosyaları istersem aynı komutun sonuna "|grep .mkv" ya da "|grep .avi" de ekleyebilirim.
eminim dos'da da buna benzer bir şeyler vardır.
"ls Videos/Filmler -R >Desktop/filmlistesi.text" yapıyorum bu durumda da bana masaüstümde filmlistesi.text adında içerisinde Videos/Filmler klasöründe yer alan bütün dosyaların olduğu bir dosya oluşturuyor hatta sadece mkv ya da avi uzantılı dosyaları istersem aynı komutun sonuna "|grep .mkv" ya da "|grep .avi" de ekleyebilirim.
eminim dos'da da buna benzer bir şeyler vardır.
- homeless
(13.01.11 12:10:21)
www.computerhope.com bu adreste var en alttaki iki komutu birleştirip yapabilirsin sanırım ama excel değil de bir text dosyasına sahip olursun
- homeless (13.01.11 12:18:54)
boş bir excel sayfasında alt + f11 yapın
açılan ekranda sol taraftaki menüde thisworkbook a çift tıklayın
sağ tarafta açılan boş sayfaya aşağıdaki kodu yapıştırın
koddaki "C:\" yazan bölümü listesini almak istediğiniz adres ile değiştirin
boş excel sayfasına dönüp alt + f8 yapıp makroyu çalıştırın
Sub Klasor_altklasor_listesi()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\")
Set colSubfolders = objFolder.SubFolders
For Each objSubfolder In colSubfolders
c = c + 1
Cells(c, "a") = objSubfolder.Name
Next
End Sub
açılan ekranda sol taraftaki menüde thisworkbook a çift tıklayın
sağ tarafta açılan boş sayfaya aşağıdaki kodu yapıştırın
koddaki "C:\" yazan bölümü listesini almak istediğiniz adres ile değiştirin
boş excel sayfasına dönüp alt + f8 yapıp makroyu çalıştırın
Sub Klasor_altklasor_listesi()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\")
Set colSubfolders = objFolder.SubFolders
For Each objSubfolder In colSubfolders
c = c + 1
Cells(c, "a") = objSubfolder.Name
Next
End Sub
- mahallenindelisi
(13.01.11 12:22:20 ~ 12:22:51)
1
