Klasördeki dosyaların isimleri otomatik olarak nasıl değiştirilir?

shutdown-serverBu gün gelen bir telefon ile bir klasördeki dosyaların isimlerini otomatik olarak nasıl değiştirilebileceği konusunda bir soru ile başbaşa kaldım.

İlk anlarda bunu nasıl yaparım diye düşünürken File System Object nesnesi aklıma geldi ve aşağıdaki kodu yazdım.

 

 

 

 

 

Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder=objFS.GetAbsolutePathName(".")
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    If objFS.GetExtensionName(strFile) = "docx" or objFS.GetExtensionName(strFile) = "doc" Then    
        strFileName = strFile.Name
	    strNewFileName = "D " & strFileName
            strFile.Name = strNewFileName
    End If  
Next

bu kod ile scriptin olduğu klasördeki Doc ve Docx uzantılı Word belgelerinin isimlerinin başına “D boşluk” ifadesi getiriliyor. Bu sayede tüm word belgelerinin isimleri farklı olsada listeleme yaparken kolaylık sağlanmış oluyor.

Şimdi bir çoğunuz “ya ne gerek var! ayrıntılardan dosya tipine göre sıralasana” diyor olabilir. Ama gelen talep bu şekildeydi, ne yapayım 🙂