Страница: 1 |
Страница: 1 |
Вопрос: копирование в папку с сегодняшней датой
Добавлено: 04.07.11 15:19
Автор вопроса: omne
Как создать папку с сегодняшней датой я знаю а вот как в нее скопировать
Dim s
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
dim d,m,y
d = day(date())
m = month(date())
y = year(date())
if d < 10 then
d = "0" & d
end if
if m < 10 then
m = "0" & m
end if
s = y & "_" & m & "_" & d
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(s)
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #1
Добавлено: 04.07.11 15:20
CopyFile?
Номер ответа: 2
Автор ответа:
omne
Вопросов: 5
Ответов: 15
Профиль | | #2
Добавлено: 04.07.11 17:21
CopyFile? Прекрасная команда только дело в том что я не знаю как записать эту команду с учетом того что папка будет получать каждый день новое имя.
Номер ответа: 3
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #3
Добавлено: 04.07.11 17:35
Хочу пойти туда не зная куда скопировать то не знаю что?)
Номер ответа: 4
Автор ответа:
omne
Вопросов: 5
Ответов: 15
Профиль | | #4
Добавлено: 04.07.11 20:06
Мне надо что бы скрипт создавал папку сегодняшним числом и скопировал в нее с носителя фотографии.