Selam Romalılar,

Çoklu dosya seçimi yapıp o dosyaların adlarını excel'e liste halinde yapıştırmak mümkün müdür?

Elimdeki filmlerin listesini bu şekilde 2 saniyede yapabilirim. Evet kurnazım, ama yardım bekliyorum

Sağolun varolun

 

ben o işi totalCommander ile yapıyorum.

www.ghisler.com

total commander ile filmlerin olduğu dizine gelin ve ctrl+A ile tüm klasörleri/dosyaları seçin. Üst menüden Mark>Copy Selected Names to Clipboard u tıklayın ve excel e gidip yapıştırın. örnek;

img23.imageshack.us

zolax

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:\dosyalar\filmler" 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

(git: 174573)
(git: 157617)
(git: 114931)

mahallenindelisi

belki yapan programlar vardir ama ben soyle yapiyordum bu isi:

1) start-->run-->cmd
2) dir d:\movies /b/s >c:\filenames.txt

burda d:\movies yerine sizin filmlerin oldugu klasoru yazmaniz gerek. /b sadece dosyanin adini, /s alt klasorlerdeki dosyanin da adini kaydeder. olusan dosya c:\ nin altinda olacaktir bu sekilde yazarsaniz. ordan excele atmak kolay zaten. tabi bu sekilde yaparsaniz ne var ne yok hepsini kaydeder (film dosyalari, alt yazi dosyalarini vs.)

alan shearer
1

mobil görünümden çık