TYMAH3003
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну всё же подскажите
Код:
if Day(now)>7 Then
'действие
End If
|
этот скрипт срабатывает после 7 числа и до конца месяца,,,,,,как прописать по конкретному дню конкретное действие ,,или хотяб одно в понедельник запускался блокнот,, а во все остальные ворд,,.
Добавлено:
Такая вот фишка нужна мне на 50 флэшей разным людям лужно скинуть один и тот же файл задание1.doc ,,, файл лежит на D:\задание1.doc
скрипт должен работать примерно так вставляю флэш он её определяет и автоматом скидывает на неё этот файл в корень флэши ,,,.тоесть мне остаётся только вставлять влэш и вынимать
без всяких лишних действий ,..и ещё проблемка флэшки вставляются сразу в несколько USB и буква флеши меняется можно универсально сделать, чтоб определялась буква и копирывался файл
Код: On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
colDrives = Split("D E F G H I J K L M N O P Q R S T U V W X Y Z")
Set dictDrives = CreateObject("Scripting.Dictionary")
For Each Drive In colDrives
Set Drv = FSO.GetDrive(Drive & ":")
If Err.Number Then
dictDrives.Add Drive & ":", False
Else
If Drv.DriveType = 1 And Drv.IsReady Then
dictDrives.Add Drive & ":", True
Else
dictDrives.Add Drive & ":", False
End If
End If
Err.Clear
Next
' Бесконечный цикл
While True
For Each Drive In dictDrives.Keys
Set Drv = FSO.GetDrive(Drive)
If (Err.Number) Or (Drv.IsReady = False) Or (Drv.DriveType <> 1) Then
Flag = False
Else
Flag = True
End If
Err.Clear
Current = dictDrives.Item(Drive)
If Current <> Flag Then
If Current = False And Flag = True Then
WScript.Echo "Диск " & Drive & " был подключён."
WScript.Echo "FileSystem = " & Drv.FileSystem
WScript.Echo "FreeSpace = " & Drv.FreeSpace
WScript.Echo "TotalSize = " & Drv.TotalSize
WScript.Echo "SerialNumber = " & Drv.SerialNumber
WScript.Echo "VolumeName = " & Drv.VolumeName
'Set FSO = CreateObject("Scripting.FileSystemObject")
'Set File = FSO.GetFile("D:\задание1.doc")
'File.Copy "путь к флэше как задать если он меняется??"
'вот это копирывание не срабатывает
Else
End If
dictDrives.Item(Drive) = Flag
End If
Next
WScript.Sleep 3000
Wend
|
|
Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 12:39 07-04-2009 | Исправлено: TYMAH3003, 13:02 07-04-2009 |
|
