Копирование файлов с определенным временем модификаций WSH скрипты

@barcelona-2013 · Регистрация: 09.12.2012

Author24 — интернет-сервис помощи студентам

помогите пожалуйста найти ошибку, не могу сама. запускаю, вроде все ошибки которые он говорит, я удалила и исправила, но он все равно не работает

я уже не знаю, что в нем можно поменять, плохо честно разбираюсь в скриптах, объясните пожалуйста

Visual Basic

Dim A, objFSO, objFile
Dim strSource, strDest
Dim argFirst, argSecond, MyStamp, TheDate, FileDateTime
 
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strSource = "C:\1"
strDest   = "C:\2"
 
Set objArgs = WScript.Arguments
 
 
 
If objFSO.FolderExists(strSource) Then 
If objFSO.FolderExists(strDest) Then
           
For Each objFile In objFSO.GetFolder(strSource).Files
FileDateTime = CStr(objFile.DateLastModified)
 
If  FileDateTime = retval  Then             
WScript.Echo objFile.Name
objFile.Copy objFSO.BuildPath(strDest, objFile.Name), True
End If
 
Next
End If
End If
Set objFSO = Nothing
WScript.Quit

Dragokas · 15.01.2013, 02:03

Работает. Только не выполняет то, чего Вы от него ожидаете.

Вот и я не знаю, что Вы от него хотите. Задание Вы не написали

По сути я вижу 1 неиспользуемый параметр (строка № 10).
И 1 не заданный параметр (строка 20).

По идее их как-нибуть бы объединить, например в строке № 11 написать:

Visual Basic

1	if objArgs.count=0 then wscript.echo "Вы не задали аргумент": WScript.Quit else retval = objArgs(0)

Вызывать из командной строки CMD так:

Bash

cscript //nologo Имя_Вашего_скрипта.vbs Искомая_дата_модификации_файла

@barcelona-2013 · 15.01.2013, 10:33 **[ТС]**

Копирование файлов с определенным временем модификации.Поле ввода даты и времени. Word - вот, что должен делать этот скрипт

Dragokas · 15.01.2013, 14:16

Тогда вместо строк 10, 11 написать:

Visual Basic

1	retval = inputbox("Введите время и дату модификации")

Дату и время вводить в таком формате, например:
15.01.2013 12:12:12

И при чем здесь Word?

@barcelona-2013 · 15.01.2013, 15:03 **[ТС]**

Dragokas, он как бы данные которые исполнит должен в ворд заисать

Dragokas · 15.01.2013, 16:30

Приблизительно так:

Visual Basic

Dim objFSO, objFile
Dim strSource, strDest
Dim argFirst, argSecond, MyStamp, TheDate, FileDateTime
Dim objDoc, objWord
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strSource = "C:\1"
strDest   = "C:\2"
 
retval = inputbox("Введите время и дату модификации")
 
Set objWord = CreateObject("Word.Application")
objWord.Visible = True 'False (открыть в невидимом режиме)
Set objDoc = objWord.Documents.Add()
 
If not objFSO.FolderExists(strSource) or not objFSO.FolderExists(strDest) Then
    Wscript.Echo "Заданная папка не существует!": WScript.Quit
End if
 
For Each objFile In objFSO.GetFolder(strSource).Files
    FileDateTime = CStr(objFile.DateLastModified) 
    If  FileDateTime = retval Then             
        objWord.Selection.TypeText objFile.Name & vbCrLf
        'WScript.Echo objFile.Name
        'objFile.Copy objFSO.BuildPath(strDest, objFile.Name), True
    End If
Next
 
'objDoc.SaveAs(FilePath)
'objDoc.Close
'objWord.Quit
Set objDoc = Nothing: Set objWord = Nothing: Set objFSO = Nothing: objFile = Nothing

@barcelona-2013 · 16.01.2013, 12:42 **[ТС]**

Dragokas, спасибо большое вам! вы очень мне помогли!

@barcelona-2013 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 16
	15.01.2013, 10:33 [ТС]	3
	Копирование файлов с определенным временем модификации.Поле ввода даты и времени. Word - вот, что должен делать этот скрипт 0

@barcelona-2013 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 16
	15.01.2013, 15:03 [ТС]	5
	Dragokas, он как бы данные которые исполнит должен в ворд заисать 0

@barcelona-2013 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 16
	16.01.2013, 12:42 [ТС]	7
	Dragokas, спасибо большое вам! вы очень мне помогли! 0

Опции темы