Question

这就是我所拥有的。

stSourceFolder = "C:\Users\HIRENS\Admin\" & Replace(CStr(Date()), "/", ".")
stTargetFolder = "C:\Users\HIRENS\Admin\HIRENS\Admin\backup\" & _
                 Replace(CStr(), "DDMMYY")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject")
' The script will error out if it tries to create a directory that already exist
' so it is better to check for it first and only attempt to create it if it does
' not exist.
If Not fso.FolderExists(strDirectory) Then
   ' If it gets here then the folder for the current date does not yet exist and
   ' therefore is created.
   Set objFolder = fso.CreateFolder(stTargetFolder)
End If
' This copies the files and overwrites them if they exist.
fso.CopyFolder stSourceFolder, destinationDir, OverwriteExisting
' If you entend to automate this script you should remove or rem out this next
' line.
WScript.Echo "Done"
'If the target-folder does not exist then it will be created.
objFSO.CopyFolder stSourceFolder, stTargetFolder

MsgBox "Folder copied"

Set fsoObj = Nothing

Answer 1

`On Error Resume Next

Dim sb : Set sb = CreateObject("System.Text.StringBuilder")
sb.AppendFormat "{0:ddMMyy}", Now() -1

  '-----------------------------------------------------
 TargetFolder = "C:\Users\"& sb.ToString &""
 Set x = CreateObject("Scripting.FileSystemObject")
 x.MoveFolder ""& TargetFolder &"" , "C:\Users\backup\"

'^^^ To move Variable folder DDMMYY
'------------------------------------------------------------

 Dim fso, count, src, folder, file 
 Set fso = CreateObject("Scripting.FileSystemObject") 
 src = "C:\Users\backup\"& sb.ToString &"\"
 stringtofind = "txt"
 Set folder = fso.GetFolder(src) 
 count = 0 
 For Each file In folder.files 
 If instr(LCase(file.name), LCase(stringtofind)) > 0 Then
 count = count + 1 
  End If 
 Next 

    WScript.Echo "PXE Files Count: " & count`

需要根据日期移动变量文件夹

1 个答案: