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

以下是一些伪代码，如何在Windows上使用bash（使用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"

需要将文件从一个文件夹移动到另一个文件夹

2 个答案: