Yıllar boyunca farklı klasörlerde yüzlerce Word dosyanız birikip duruyor. Basılabilir bir demirbaş listesi ile bu dosyalara hızlı bir içimde göz atabilirsiniz. Böyle bir listeyi oluşturmak için ise ince eleyip sık dokumak gerekiyor. Fakat bu işlemi siz yapmak zorunda değilsiniz: bırakın Windows halletsin. Sistemde gerekli araçlar mevcut. Oluşturduğumuz bir program olan "LISTDOC. VBS" sayesinde bu dosyaların adlarını ve bulunduğu yerleri bir iste halinde çıkartabilirsiniz. Gerekli script'i hazırlamak için aşağıdaki kodları bir metin dosysına girin ve dosyayı ". vbs" olarak kaydedin: Kod:Panoya kopyala Option Explicit Dim listArgs Dim objFileSystem Dim objFolder, objSubFolder, objFile, objCvsFile Dim strFolder Dim strCsvFile Set listArgs = WScript. Arguments Set objFileSystem = CreateObject If listArgs. Count = 0 Then strFolder = InputBox Else strFolder = listArgs(0) End If strCsvFile = "C:\Temp\ListeDOC. csv" strCsvFile = InputBox If Right(strCsvFile,4) <> ". csv" Then strCsvFile = strCsvFile & ". csv" End If Set objCvsFile = objFileSystem. CreateTextFile(strCsvFile1, true) objCvsFile. Write "Dosyanın adı" & ";" & "Dosya konumu" & vbNewLine listFiles strFolder objCvsFile. Close MsgBox "Dosya " & strCsvFile & " oluşturulacak!" WScript. Quit Function listFiles If objFileSystem. FolderExists Then Set objFolder = objFileSystem. GetFolder For Each objFile In objFolder. Files If UCase(Right(objFile. Name,4)) = ". DOC" Or UCase(Right(objFile. Name,5)) = ". DOCX" Then objCvsFile. Write objFile. Name & ";" & objFolder. Path & vbNewLine End If Next For Each objSubFolder In objFolder. SubFolders listFiles objSubFolder. path Next Else MsgBox "Verilen klasör" & strFolder & "bulunamıyor!" End If End Function Listeyi oluşturmak Bir çift tıklama ile script'i çalıştırın. İlk pencerede aranmaya dahil edilmesini istediğiniz klasör adını girin. Bir sonraki diyalog penceresinde ise script size oluşturulacak dosyanın yeri ve konumunu soracak. "LISTDOC. VBS" verdiğiniz klasör ve tüm alt klasörlerinde "DOC" ve "DOCX" biçimli dosyaları arayacak ve bulduklarının isimlerini bir CSV dosyasında kaydedecek. Excel ile bu dosya biçimin kolayca açabilirsiniz. Daha sonra isterseniz bu uygulamayı masaüstünüzde de kullanabilir hatta sistem başlangıcına koyarak belli açılışlarda liste oluşturmasını sağlayabilirsiniz.