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 |
|