| |
|
|
| | Снова поднимаю свой вопрос. Спасибо всем кто мне отвечал но так и не понял что и к чему. В общем мне необходимо следующее: копирование удаление и запуск следующих файлов
удалить файл del C:\windows\system32\drivers\sd23.sys
удалить каталог C:\windows\system32\drivers\nt\ /q /s
скопировать файл sd23.sys C:\windows\system32\drivers\
скопировать файл wdreg.exe C:\windows\system32\drivers\
скопировать каталог sd C:\windows\system32\drivers\nt\ /e /i /q /y
перейти в каталог (аналог команды cd) C:\windows\system32\drivers\
запустить файл wdreg -name "ntf" -file ntf remove
запустить файл wdreg -name "ntf" -file ntf create start
Всем спасибо кто сможет помочь!!! | |
| |
| |
| |
|
|
| | Sub Manip_Files()
Dim fso As New FileSystemObject, fil1
MsgBox "Удаляем файлы"
' Код получения текущих дерикторий файлов
Set fil1 = fso.GetFile(C:\windows\system32\drivers\sd23.sys)
' Удаляем дайл
fil1.Delete
End Sub | |
| |
| |
| |
|
|
| | Sub Manip_Files()
Dim fso As New FileSystemObject, fil1
Set fil1 = fso.GetFile("C:\wdreg.exe)
' Копируем файл
fil1.Copy ("C:\windows\system32\drivers\wdreg.exe")
End Sub | |
| |
| |
| |
|
|
| | Private Sub main_Folder()
Dim fso As New FileSystemObject, fldr As Folder, s As String
' Удаляем папку
fso.DeleteFolder (C:\windows\system32\drivers\nt)
End Sub | |
| |
| |
| |
|
|
| | пример запуска файла
SHELL "C: \ yada \ yada \ Excel.exe " | |
| |
| |
|
|
