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:
Listeyi oluşturmak
Bir çift tıklama ile script’i çalıştırın. İlk pencerede aranmaya dâhil 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.
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:
Option Explicit
Dim listArgs
Dim objFileSystem
Dim objFolder, objSubFolder,
objFile, objCvsFile
Dim strFolder
Dim strCsvFile
Set listArgs = WScript.Arguments
Set objFileSystem = CreateObject
("Scripting.FileSystemObject")
If listArgs.Count = 0 Then
strFolder = InputBox("Aranacak klasörlerin adı?","Klasör seçimi", "C:\")
Else
strFolder = listArgs(0)
End If
strCsvFile = "C:\Temp\ListeDOC.csv"
strCsvFile = InputBox("Oluşturulacak liste için isim ve konum?","CVS-dosyasını adlandırma", strCsvFile)
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(strFolder)
If objFileSystem.FolderExists(strFolder)
Then
Set objFolder = objFileSystem.
GetFolder(strFolder)
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 FunctionListeyi oluşturmak
Bir çift tıklama ile script’i çalıştırın. İlk pencerede aranmaya dâhil 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.
