Серый форум — VBS: Проверка открыт файл или нет

Re: VBS: Проверка открыт файл или нет

null@example.com (Flasher) — Mon, 24 Mar 2014 22:32:12 +0000

ИМО, лучше узнавать текущий запуск через WQL-запрос:

Select ExecutablePath FROM Win32_Process WHERE CommandLine Like '%Буква диска:\\Путь\\к\\файлу%'

wildwolf007
Чтобы не было лишних вопросов:

Path = "X:\\Файл.ext"
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
For Each F in WMI.ExecQuery("SELECT ExecutablePath FROM Win32_Process WHERE CommandLine Like '%" & Path & "%'")
  MsgBox "Файл открыт приложением: " & vbNewLine & F.ExecutablePath, 64, Space(13) & "Проверка запуска файла"
Next : Set WMI = Nothing

Re: VBS: Проверка открыт файл или нет

null@example.com (wisgest) — Mon, 24 Mar 2014 21:31:15 +0000

…если открытый файл находится на USB накопителе или в "простонародии" на флешке, то данный метод нельзя применять.

У меня работает.
Возможно, причина в
1) используемом накопителе (способе его подключения, драйвере…) или
2) программа, открывающая файл, не блокирует его, если он находится на съёмном носителе.

Для проверки, действительно ли заблокирован файл попробуйте ввести в командной строке

rem:>>"G:\1234.rtf"

или

set /p=>"G:\1234.rtf"

— должно ответить

Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.

или просто попробуйте изменить файл в Блокноте…

Чтобы самому заблокировать файл введите в командной строке

(pause>con)>>"G:\1234.rtf"

— файл будет заблокирован на время паузы.

Re: VBS: Проверка открыт файл или нет

null@example.com (wildwolf007) — Mon, 24 Mar 2014 17:50:44 +0000

Небольшое уточнение если открытый файл находится на USB накопителе или в "простонародии" на флешке, то данный метод нельзя применять. Промучился около часа не мог понять на локальном жестком диске работает, а на USB нет. На USB показывает, что нет ошибки.

Re: VBS: Проверка открыт файл или нет

null@example.com (wildwolf007) — Mon, 24 Mar 2014 17:19:56 +0000

Спасибо помогло.

Теперь пишет разрешение отклонено.




Dim  objFso
Set objFso = CreateObject("Scripting.FileSystemObject") 

MsgBox "Код ошибки до Err.Number = " &Err.Number

On Error Resume Next

Dim OpenFileBuzyCheck
Set OpenFileBuzyCheck = objFso.OpenTextFile("C:\12345671.rtf", 8, True)


MsgBox "Err.Number = После открытия на дозапись = " &Err.Number
MsgBox "err.description" &err.description
If Err.Number > 0 Then
    MsgBox "Файл занят" &"Err.Number = " &Err.Number
    MsgBox "Сработало условие Err.Number = " &Err.Number
End IF
Err.Clear
MsgBox "Err.Number = Проверка кода ошибки после чистки " &Err.Number

OpenFileBuzyCheck.Close

On Error Goto 0

Re: VBS: Проверка открыт файл или нет

null@example.com (Rom5) — Mon, 24 Mar 2014 15:15:18 +0000

wildwolf007 пишет:

Пишет: "Требуется объект".

Возможно, что ошибку проверять надо до закрытия файла?

Re: VBS: Проверка открыт файл или нет

null@example.com (wildwolf007) — Mon, 24 Mar 2014 10:31:13 +0000

Пишет: "Требуется объект".

Re: VBS: Проверка открыт файл или нет

null@example.com (shiz) — Sun, 23 Mar 2014 20:28:52 +0000

А что говорит err.description?

Re: VBS: Проверка открыт файл или нет

null@example.com (wildwolf007) — Sun, 23 Mar 2014 14:09:17 +0000

Выдает ошибку 424 может что-то не так сделал?



Dim  objFso
Set objFso = CreateObject("Scripting.FileSystemObject") 

MsgBox "Код ошибки до Err.Number = " &Err.Number

On Error Resume Next

Dim OpenFileBuzyCheck
Set OpenFileBuzyCheck = objFso.OpenTextFile("C:\12345671.rtf", 8, True)
OpenFileBuzyCheck.Close

MsgBox "Err.Number = После открытия на дозапись = " &Err.Number

If Err.Number > 0 Then
    MsgBox "Файл занят" &"Err.Number = " &Err.Number
    MsgBox "Сработало условие Err.Number = " &Err.Number
End IF
Err.Clear
MsgBox "Err.Number = Проверка кода ошибки после чистки " &Err.Number
On Error Goto 0

Re: VBS: Проверка открыт файл или нет

null@example.com (shiz) — Wed, 19 Mar 2014 12:31:53 +0000

wildwolf007 пишет:

А если файл будет EXE ?

В чём разница? Проверка работает (код ошибки 70, если файл занят).

Re: VBS: Проверка открыт файл или нет

null@example.com (wildwolf007) — Wed, 19 Mar 2014 11:53:07 +0000

А если файл будет EXE ? Чето не оч вариант.

Re: VBS: Проверка открыт файл или нет

null@example.com (shiz) — Wed, 19 Mar 2014 11:00:18 +0000

Попробовать открыть файл на дозапись.

VBS: Проверка открыт файл или нет

null@example.com (wildwolf007) — Wed, 19 Mar 2014 09:36:05 +0000

Как можно проверить открыт файл или нет?
Была идея переименовать файл в свое же имя и считать код ошибки, но чето выдает ошибку 58.

К тому же в Windows 7 на примере Doc, можно переименовать открытые файлы Office 2010.
Открываем файл doc в ворде и переименовываем файл и все проходит корректно, только когда потом пытаешься произвести сохранение документа ворд говорит "Убедитесь, что задвижка дисковода закрыта и он содержит правильный диск "

Кто что-нибудь может подсказать?



MsgBox File.Name
MsgBox "Err.Number = " &Err.Number
On Error Resume Next
File.Name = File.Name
MsgBox "Err.Number = " &Err.Number
On Error Goto 0