[Iska]

Если в ней хоть что то есть »

В любой папке всегда есть две записи: «.» и «..» .

Код:

Option Explicit

Dim strSourceFolder
Dim strDestFolder


strSourceFolder = "C:\Sorce"
strDestFolder   = "C:\Dest"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		If .FolderExists(strDestFolder) Then
			If .GetFolder(strDestFolder).Files.Count = 0 And .GetFolder(strDestFolder).SubFolders.Count = 0 Then
				.MoveFolder .BuildPath(strSourceFolder, "*.*"), strDestFolder
				.MoveFile   .BuildPath(strSourceFolder, "*.*"), strDestFolder
			End If
		Else
			WScript.Echo "Can't find destination folder [" & strDestFolder & "]."
		End If
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	End If
End With

WScript.Quit 0