Переименовать файлы

[k3t]

Господа хорошие, помогите девушке переименовать несколько десятков тысяч файлов согласно списку ключевиков из текстового файлика.

[imgreen]

сначала сиськи

[jarosek]

атжог
ВНЕЗАПНО!!!

[Xenu]

[Zodar]

Этот топик имеет светлое будущие, только кеглей нет

[banzai]

злые вы )
ТС, делаешь файлик, называешь чтото.vbs
в него пишешь

  Set fso = CreateObject("Scripting.FileSystemObject")
  set inFile=fso.OpenTextFile("keywords.txt")
  Set f = fso.GetFolder(".")
  Set fc = f.Files
  key=""
  For Each curfile in fc
    if InStr(curfile.Name,".jpg")>0 then
        s=Replace(inFile.ReadLine," ","-")
        newName=s+".jpg"
        if(fso.FileExists(newName)) then
           fso.DeleteFile(newName)
        end if
        fso.MoveFile curfile.Name,newName
        if(inFile.AtEndOfStream <> False) then
             exit for     
        end if
    end if
  Next

keywords.txt - файлик со списком кеев твоих
*.vbs у тебя должен запуститься по дабл-клику в винде

[Drg]

Не фига себе, вот это скрывалась с 2009 года и девушка на форуме

Если бы линукс, то помог бы)

[RedHead]

Total Commander:
Ctrl+A
Ctrl+M

[banzai]

Сообщение от RedHead

Total Commander:
Ctrl+A
Ctrl+M

охренеть !! за пределами FARа есть жизнь

[παφ]

Сообщение от imgreen

сначала сиськи

пизда, разорвал к ебеням