помогите плиз со скриптом

[VIrusProX]

мне нужна помощь....
ситуация такая....

мне нужен скрипт VBS которий будет копиривать папку на флешку при етом штоб сам опридилял букву флешки.....


set fso=createobject("scripting.filesystemobject")
set WshShell=WScript.CreateObject("WScript.Shell")
fso.copyfolder WshShell.ExpandEnvironmentStrings("%USERPROFILE%")+"\Application Data\Opera\Opera\profile","?:\1"


допишите плиз скрипт.....
зарание спс....
если кому нада подробности еще какие-то то в асю 496-308-746

[inlanger]

Тебе в раздел заказов написания скриптов

[VIrusProX]

мне не написать нада его а дописать....

[VIrusProX]

ап

[VIrusProX]

ау

[m0Hze]

Пречитывай второй пост.

[VIrusProX]

прощу неуказивать тех хто незнает!!!!!!!!!!

[mailbrush]

До тебя плохо доходит, чтоли? Тебе же сказали - прочти второй пост. И русский подучи.

[VIrusProX]

1)я с украини 2)бред читать несобираюсь

[VIrusProX]

ап

[alexdrn]

не с глаголами раздельно

[sNt]

Глупый какой-то. Ему объясняют, он продолжает тупить. Тебе же сказали - в тему о работе, что не ясного? Чо такой непонятливый? Ведь нормально объясняют. Админы, перенесите топик.

[VIrusProX]

ап

[Deathdreams]

завали свой ап.
никто тебе не поможет,хамишь ещё и чего-то требуешь с ачата.
здесь тебе никто ничего не должен!

[Pashkela]

Всё не покажу, вот когда-то давно писал для себя - запускает сканирование на подключение флехи (режим ожидания) + как только всунули - показывает букву диска. Дальше сам:


strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
"TargetInstance ISA 'Win32_LogicalDisk'" & _
" AND TargetInstance.DriveType = 2")
Wscript.Echo "Ожидаем события ..."
a=0
Do While a<>1
Set objReceivedEvent = objEvents.NextEvent
disk=objReceivedEvent.TargetInstance.Name
a=1
msgbox disk
Loop
Set objWMIService = Nothing
Set objEvents = Nothing
Wscript.Quit