Войти

Показать полную графическую версию : [решено] Перемещение файлов с условием


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

Iska
20-06-2013, 10:05
Если в ней хоть что то есть »
В любой папке всегда есть две записи: «.» и «..» ;).

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

PAlkovnic
20-06-2013, 10:12
Благодарю! То, что доктор прописал!




© OSzone.net 2001-2012