Windows da bazen dosyalarımız olabiliyor ve bu dosya ve klasörleri listelemek isteyebilirsiniz peki listeleme işlemini nasıl yapıcaz.
Hemen aşağıdaki kodları inçeleyebilirsiniz. Bu kodları not defterine ardından cmd uzantısına cevirerek kullanabilirsiniz yalnız en alttaki kodun uzantısı farklıdır.
Bu kod ile var olan dosyanın klasör içerisini listeler ve listelenen içeriği list.txt dosyasının içerisine yazar.
dir /s >> list.txt
Dosyanın ismi örneğin listele.cmd olmalı.
Aşağıdaki kod ise farklı bir dizin listeleme şekli vardır aşağıdaki kodu not defterine yazılır ardından cmd uzantısı olarak kaydedilir. içeriğini ise filelist.txt dosyasına yazar.
dir *.txt /s /b > filelist.txt
secmeli_listele.cmd uzantısı olarak örneğin bulundurulmalı.
Alttaki kod ise yine kendine özgün listeleme şekli vardır ve tree.txt dosyasına yazar siz eğer tree.txt dosyasının ismini değiştirirsenin o dosya ismini oluşturur ve yazar.
tree /A /F > tree.txt
listele_tree.cmd ismi oluşturulmalı veya kendi size özel isminizi yazabilirsiniz herhangi bir amaç yoktur.
Aşağıdaki kod ize önçe not defterine yazılmalı ardından listele.vbs uzantısına çevrilip oluşturulmalıdır. Kodun içerisindeki 7 ci satır kendinize göre düzenlemelisiniz.
Dim fso
Dim ObjOutFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set ObjOutFile = fso.CreateTextFile("liste.txt")
GetFiles("D:\müzikler\yabancı")
WScript.Echo("Completed")
Function GetFiles(FolderName)
On Error Resume Next
Dim ObjFolder
Dim ObjSubFolders
Dim ObjSubFolder
Dim ObjFiles
Dim ObjFile
Set ObjFolder = fso.GetFolder(FolderName)
Set ObjFiles = ObjFolder.Files
For Each ObjFile In ObjFiles
ObjOutFile.WriteLine(ObjFile.Name & "," & ObjFile.Path)
Next
Set ObjSubFolders = ObjFolder.SubFolders
For Each ObjFolder In ObjSubFolders
GetFiles(ObjFolder.Path)
Next
End Function
Kod içerisindeki var olan değiştirmediyseniz liste.txt dosyasına listelenip kaydetmektedir.
Hepsini tek tek deneyip kullanabilirsiniz.