Ant Renamer

תוכנה שימושית מאד המאפשרת לשנות את השם למספר רב של קבצים בבת אחת וכמובן חינמית

להורדה

נ.ב בעבר כתבתי קובץ שעשה בדיוק את מה שהתוכנה הספציפית הזאת עושה והרי הקוד ב-vbs

Set objArgs = WScript.Arguments

if objArgs.Count=0 then
    MsgBox "No params"
Else
 strPath = ""
 
' if(objArgs.Count>1) then
'  strStartName = objArgs(1)
' Else
'  strStartName = "New"
' End If
 
 nStartCount=InputBox("Please enter the start count","FileMover",0)
 strStartName=InputBox("Please enter the prefix string","FileMover","")
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 For I=0 To objArgs.Length-1
  strPath=strPath & " " & objArgs(I)
 Next
 strPath=Mid(strPath,2)
 fso.CreateFolder(strPath+"\New")
 Set fso=Nothing
 
 call CopyItems(strPath,strPath+"\new","",strStartName,nStartCount)
End If

Sub CopyItems(strSorDir,strDestDir,strExt,strCountExt,nStartPos)
   Set fso = CreateObject("Scripting.FileSystemObject")

   set oFolder = fso.GetFolder(strSorDir)
  
   for each oItem in oFolder.Files
       Ext = Mid(oItem.name,InStrRev(oItem.name,"."))
      
       if Len(strExt)=0 or Ext=strExt then
         strDest = strDestDir +"\" + strCountExt + CStr(nStartPos) + Ext
   strSor = strSorDir+"\"+oItem.Name
  
   nStartPos = nStartPos + 1
   call fso.CopyFile(strSor,strDest,true)
   End IF
   Next
End Sub

יש להעתיק את הקוד ל-כתבן ולשמורעם סיומת vbs

כעת כל תיקייה שתגררו על אייקון הקובץ תאפשר לכם לשנות את שמות הקבצים המצויים בה.
  

כתיבת תגובה

הזינו את פרטיכם בטופס, או לחצו על אחד מהאייקונים כדי להשתמש בחשבון קיים:

הלוגו של WordPress.com

אתה מגיב באמצעות חשבון WordPress.com שלך. לצאת מהמערכת / לשנות )

תמונת Twitter

אתה מגיב באמצעות חשבון Twitter שלך. לצאת מהמערכת / לשנות )

תמונת Facebook

אתה מגיב באמצעות חשבון Facebook שלך. לצאת מהמערכת / לשנות )

תמונת גוגל פלוס

אתה מגיב באמצעות חשבון Google+ שלך. לצאת מהמערכת / לשנות )

מתחבר ל-%s

%d בלוגרים אהבו את זה: