Нужно переместить файл из одной папки в другую

Question

Я новичок в VBS. Мне нужна помощь, чтобы сделать следующие шаги;

1) Найдите самую последнюю измененную папку (папку с самой поздней датой) в месте, скажем C: \ temp.

2) Затем найдите конкретный файл (с расширением .txt) в подпапке (вышеупомянутой папки)

3) Скопируйте этот файл в другое место, предположим, что C: \ temp1

4) Переименуйте имя файла в текущую дату, например 2011-02-14

Спасибо

Answer 1

VBScript:

BaseDir = "C:\Temp"
FileToFind = "test.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set fl = fs.GetFolder(BaseDir)

For Each sfl In fl.SubFolders
    If IsNull(fd) Or sfl.DateCreated > fd Then
        fd = sfl.DateCreated
        Found = sfl.Path & "\"
    End If
Next

Set f = fs.GetFile(Found & FileToFind)

f.Copy "C:\Temp1\" & Year(Date) & Month(Date) & Day(Date), True

Могут быть проблемы, включая "-" в имени файла, поэтому я пропустил его.

Answer 2

Вот некоторый код psuedo, как вы бы это делали в bash на Windows (с cygwin)

# change to the directory so we can avoid path issues
cd /path/to/temp

# get the most recently modified directory
myDirectory = "`ls -drt */ | tail -n1`"

# change to that directory
cd "$myDirectory"

# Here you can use cp or mv depending if you want to remove the file from orig   
directory
cp "specificFile.txt" "/path/to/temp1/`date command with flags`.txt"