[]
HDD içindeki dosya isimlerini text , excel yada word dokumanında toplama
merhaba
Harici HDD içinde yaklaşık 1.000 adet film var. Bunların listesini çıkarmak istiyorum.
Tek tek dosya isimlerini yazmaktansa HDD nin bu bölümündeki dosya isimlerini otomatikman toplayan ve mümkün ise excel e aktarabileceğim bir program duyan bilen kullanan var mı?
Harici HDD içinde yaklaşık 1.000 adet film var. Bunların listesini çıkarmak istiyorum.
Tek tek dosya isimlerini yazmaktansa HDD nin bu bölümündeki dosya isimlerini otomatikman toplayan ve mümkün ise excel e aktarabileceğim bir program duyan bilen kullanan var mı?
(bkz: eax movie catalog)
program üzerinde listelebilirsiniz film bilgileri vs. ile bunları excel e program kendi aktarabiliyo.
program üzerinde listelebilirsiniz film bilgileri vs. ile bunları excel e program kendi aktarabiliyo.
- rurouni
(09.09.10 16:39:21)
Eğer tüm filmler aynı klasördeyse klasörü Firefox'a sürükle; liste halinde gözükecektir tüm filmler...
- metal revolution (09.09.10 19:43:44)
alternatif olarak excel'de bulunsun;
boş bir excel dosyası açıp alt + f11 yapın. sol frame'de ThisWorkbook'a tıklayın, aşağıdaki kodu kopyalayıp yapıştırın. kodun 3. satırındaki "C:\" adresini klasör isimlerini almasını istediğiniz adres ile düzeltin ("d:\murty\dosyalar" gibi). excel dosyasına dönün 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
kod yeri geldiğinde hayat kurtaran excel.web.tr'den araktır. saolsun var olsunlar. www.excel.web.tr
(git: 157617)
(git: 114931)
boş bir excel dosyası açıp alt + f11 yapın. sol frame'de ThisWorkbook'a tıklayın, aşağıdaki kodu kopyalayıp yapıştırın. kodun 3. satırındaki "C:\" adresini klasör isimlerini almasını istediğiniz adres ile düzeltin ("d:\murty\dosyalar" gibi). excel dosyasına dönün 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
kod yeri geldiğinde hayat kurtaran excel.web.tr'den araktır. saolsun var olsunlar. www.excel.web.tr
(git: 157617)
(git: 114931)
- mahallenindelisi (09.09.10 23:27:30)
1
