quakerock
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. Не знаю, как переименовать папку не перемещая ее, поэтому сделал с перемещением.
2. Не знаю, как к папке добавить 1, 2, 3, чтобы сделать ее уникальной, поэтому при меремещении к имени папки добавлятся системная дата, системное время.
Знающие люди подскажу в остальном, если так не прокатит=)
Код: Dim fso, folder, SourceF, DestF, mm, hh, ss
'=======================================================
SourceF= "D:\...\IP Cam" 'Путь до проверяемой папки
DestF= "D:\...\" 'Путь, куда будет перемещаться папка
'=======================================================
d= day(date)
m= month(date)
y= year(date)
sd = y & "." & m & "." & d 'Формат даты
'=======================================================
mm= minute(time)
hh= hour(time)
ss= second(time)
st= hh & "'" & mm & "'" & ss 'Формат фремени
'=======================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
set folder = fso.Getfolder("D:\...\IP Cam")
if folder.size > 1073741824 then '1073741824 байт = 1Гбайт
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
If Proc.Name = "iexplore.exe" Then
Proc.Terminate
End If
next
'=======================================================
if folder.size > 1073741824 then
Rname= Right(SourceF, 0)
NewName= fso.GetBaseName(SourceF) & " " & sd & "_" & st
fso.MoveFolder SourceF, DestF & NewName
fso.CreateFolder "" & DestF & "IP Cam" 'Перемещаем и переименовываем папку (IP Cam Формат даты_Формат времени)
else
end if
end if
wsh.sleep 5000
'=======================================================
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
If Proc.Name = "iexplore.exe" Then
myProc = True
End If
Next
If Not myProc Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "iexplore"
End If |
|
Всего записей: 29 | Зарегистр. 08-07-2009 | Отправлено: 14:46 05-05-2011 | Исправлено: quakerock, 15:20 05-05-2011 |
|
