[Iska]

Вопрос, как эту самую(е) папки создавать в папке Архив? »

Например, указывать полный путь — если Вы используете создание каталога посредством метода .CreateFolder() класса Scripting.FileSystemObject. Кроме этого метода Вы можете использовать метод .Add() коллекции Folders. И тот, и другой методы возвращают объект типа Folder.

Почему то создается в корне C:\Реестр\ »

Вероятно Ваш скрипт там находится. Оттуда Вы его запускаете, и потому данный каталог является текущим для него:

Скрытый текст

Я бы изобразил нечто подобное:

Код:

Option Explicit

Dim strRootFolder
Dim strArchiveFolder

Dim objFSO

Dim objRootFolder
Dim objArchiveFolder
Dim strPath2ArchiveFolder

Dim objSWbemObjectEx

Dim objNowFolder


strRootFolder    = "C:\Реестр"
strArchiveFolder = "Архив"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strRootFolder) Then
	Set objRootFolder = objFSO.GetFolder(strRootFolder)
	
	strPath2ArchiveFolder = objFSO.BuildPath(strRootFolder, strArchiveFolder)
	
	If Not objFSO.FolderExists(strPath2ArchiveFolder) Then
		Set objArchiveFolder = objRootFolder.SubFolders.Add(strArchiveFolder)
	Else
		Set objArchiveFolder = objFSO.GetFolder(strPath2ArchiveFolder)
	End If
	
	For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT LocalDateTime FROM Win32_OperatingSystem")
		Set objNowFolder = objArchiveFolder.SubFolders.Add(Left(objSWbemObjectEx.LocalDateTime, 8))
		
		Exit For
	Next
	
	'...
	'...
	'...
	
	Set objNowFolder     = Nothing
	Set objArchiveFolder = Nothing
	Set objRootFolder    = Nothing
Else
	WScript.Echo "Can't find root folder [" & strRootFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

P.S. И никаких On Error Resume Next без веских причин!