| |
|
|
| | При удалении файла , который находится на другом кмпе в сети - что есть какая то заморока????
Он не удаляется  | |
| |
| |
| |
|
|
| | дык пермишшенз же наверное
удаляй целиком директорию | |
| |
| |
|
|
| |
|
|
| | права доступа
комп должен иметь соответствующие разрешения на выполнения операций на другом компе.
опасное это дело... | |
| |
| |
| |
|
|
| | дык вручную удаляется - вот чё смущает 
а программно нет....
это от меня за сотню километров... потому я сам не видел  | |
| |
| |
| |
|
|
| |
какими средствами удаляешь? скриптом поди? | |
| |
| |
| |
|
|
| | Средствами FSO
Public Function FUN_DELETE_FILE_NAME(Patch_File As String) As String
' Удаление файла
Dim fld, F
On Error GoTo FUN_DELETE_FILE_NAME_Error
'-------------------------------------------------------------------------------
If FUN_FILE_YES_NO(Patch_File) = True Then
Set F = FSO.GetFile(Patch_File)
F.Delete
MsgBox "Удалён файл : " & Patch_File
End If
'-------------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_DELETE_FILE_NAME_Error:
MsgBox "Не удалось удалить файл - возможно он не закрыт.... : " & Patch_File, vbCritical
MsgBox "Нажмите кнопку квитанция - закройте файл и повторите операцию удалить квитанцию.", vbCritical
Call Zapis_ERR("процедура->" & "FUN_DELETE_FILE_NAME", Err.Number, Err.Description)
End Function | |
| |
| |
|
|
| |
|
|
| | и всего то
А я накуролесил.......... | |
| |
| |
| |
|
|
| | это я накуролесил
на чужом падает мимо корзины...
пля, где теперь искать  | |
| |
| |
| |
|
|
| | Ну и ххорошо - оно уже не нуно...
В сети всегда ведь так....  | |
| |
| |
| |
|
|
| | Permission denied  | |
| |
| |
|
|
| |
|
|
| | Попробуй так:
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'Excell.exe'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess In colProcess
objProcess.Terminate
'objProcess.Terminate()
Next
'Dedug.Print "Just killed process " & strProcessKill _
'& " on " & strComputer | |
| |
| |
| |
|
|
| | привет!!!
спасибо!!!  | |
| |
| |
| |
|
|
| | ёёёёёёёёёё маёёёёёёёёёёё
А перед етим я пытаюсь
XL,QUIT зафигачить
а XL - уже нотхинг нафиг - тут и ошибочка и вылет...
А как убедиться nothing он, или нет ещё
isnothing (XL) - такого проверка - нет....... | |
| |
| |
| |
|
|
| |
А перед етим я пытаюсь
XL,QUIT зафигачить
а XL - уже нотхинг нафиг - тут и ошибочка и вылет...
А как убедиться nothing он, или нет ещё
isnothing (XL) - такого проверка - нет.......
|
Если честно, нифига не понял из ентого потока сознания.  | |
| |
| |
|
|
