[решено] Перемещение файлов с условием - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Перемещение файлов с условием (http://forum.oszone.net/showthread.php?t=262808)

Перемещение файлов с условием

Добрый день!
Имеются две папки: C:\Sorce и C:\Dest. Необходимо переместить все содержимое папки C:\Sorce в папку C:\Dest с условием, что папка C:\Dest пуста. Если в ней хоть что то есть, то ничего происходить не должно. Связано это с тем, что данные из C:\Dest забирать будет человек, и пока он не заберет, данные в C:\Sorce должны сохраняться. Скрипт будет запускаться по шедулеру, скажем, раз в час, т. е. если в C:\Dest есть что то, то ждем следующего запуска, если ничего нет, то перемещаем свежие данные. По поиску конкретно такого не нашел. Буду благодарен за помощь!

Цитата:

Цитата PAlkovnic

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

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

Код:

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

Благодарю! То, что доктор прописал!