Run-time error '75'

[viny]

Скрипт, сканирует текст files.
На некоторых файлах затыкается с ошибкой:
Run-time error '75'
Path/File access error.

О чём речь? Не подскажите?

Thanks

[Шурик]

http://bbs.vbstreets.ru/viewtopic.php?t ... 40cb35f200

хе.. в яндексе нашел, первой строкой

[viny]

Спасибо.
Пытаюсь разобраться.

[Шурик]

посмотри в этом топике последний ответ, может у тя в этом проблема...

[viny]

Я тоже работаю с .path
Вставил код:

function EnsureSlash(s as string) as string
if right$(s,1)="\" then ensureslash=s else ensureslash=s & "\"
end function


в модуль.
Надо как-то вызывать ету функцию?
Пока неработает.

[Alexander N. Samarin]

Везде вместо App.Path Ставь EnsureSlash(App.Path)

[viny]

Не выходит... каменный цветок.

[hCORe]

Должно работать:

Код: Выделить всё

thefile = EnsureSlash(Dir1.Path) & myfile

[viny]

Tакая закавырка!

[GSerg]

Посмотри Q197486 и Q197321... Не твой случай? Хотя вроде нет... Но всё же

[FaKk2]

Я очень рекомендую подвести курсор мышки к слову thefile во время ошибки, и посмотреть какое значение оно содержит.

Либо в Immediate окне напиши ?thefile
Тоже после ошибки.

[viny]

В том то и дело что PATH правильный.
???

[Konst_One]

вот попробуй с помощью этой функции:

Код: Выделить всё

'**********************************************************
' Чтение файла
'----------------------------------------------------------
Public Function FileRead(FileName As String) As String
Dim handle As Integer
 
  handle = FreeFile()
  Open FileName For Binary Access Read Shared As #handle
  FileRead = Space(FileLen(FileName))
  Get #handle, , FileRead
  Close #handle
 
End Function

[Konst_One]

а это проверка заблокирован ли он:

Код: Выделить всё

'**********************************************************
' Проверка блокировки файла
'----------------------------------------------------------
Public Function FileLocked(ByRef FileName As String) As Boolean
Dim h As Integer
  On Error GoTo Error_Open
  FileLocked = True
  h = FreeFile()
  Open FileName For Append Access Read Write Lock Read Write As #h
  Close #h
  FileLocked = False
  Exit Function
Error_Open:
End Function

[viny]

[Konst_One]

шо, опять

может у тебя файл битый

[Ruslan Demidow]

А диск случаем не сетевой?

[viny]

Диск сетевой.
Но с большинством файлов никакой проблемы нет, только с некоторыми.
ААА, понял к ним нет доступа.
Спасибо всем за помощь !!!!!!!!!!!!!!!!!!!!
Ещё вопросик:
скрипт сканирует все файлы в директории:
так, я пробую пропускать те файлы без доступа,
используя On Error Goto
но после того как пропускает первый файл опять затыкается на следующем.
Что-то с On Error Goto не так?
Thanks.

[Ruslan Demidow]

viny
Пробуй делать так:
Или в начале сканирования делай On Error Resume Next (что в прочем не очень кузяво).
Либо в начале сканирования делай On Error Goto ErrSub (ErrSub - обработчик ошибок в этой же процедуре).

В процедуре после метки ErrSub выводи (если есть желание) сообщение о том что файл недоступен и поступай уже как тебе нужно: или выход из процедуры, или предложение пользователю повторить попытку доступа к файлу или же просто выводи сообщение о недоступности файла (например на 3-5 сек, потом закрываешь сообщение и продолжаешь сканировать со следующего файла).

По второму варианту код представляется так:

Код: Выделить всё


Private Sub Scan()
..... 'Некоторый код
'Начинаем сканирование
On Error Goto ErrSub
...
.... 'внутри цикла
Retry:
.... 'сканируем очередной файл
.... 'обрабатываем его
Ignore:
Next

Exit Sub

ErrSub:
       Dim Answer As Integer
    Answer = MsgBox("Невозможно получить доступ к " & vbCrLf & sFileName & vbCrLf, _
            vbAbortRetryIgnore + vbExclamation, "Сканирование...")
    Select Case Answer
        Case vbAbort
            Debug.Print "Отменяем..."
            Exit Sub
        Case vbRetry
            Debug.Print "Повторная попытка..."
            GoTo Retry
        Case vbIgnore
            Debug.Print "Игнорируем..."
            GoTo Ignore
    End Select
End Sub


Код, сахар и сливки добавить по вкусу...

[Лёха_Virus]

Здраствуйте!
Господа, помогите пожалуйста, я уже себе рак мозга нажил практически.
Ситуация такая: сделал сетевой чат с функцией передачи по сети файлов с докачкой.
Отправляю большой файл, обрываю его. Делаю докачку. Т.е. файл обрубленный.
Запускаем такой код:

Код: Выделить всё

cd.FileName = FileName
cd.ShowSave
FileName = cd.FileName
       
Open FileName For Binary As #123
    nFileLength = LOF(123)
    ReDim fil(nFileLength - 1)
    Get #123, , fil
    Close #123
   
Open FileName For Binary As #321
    Put #321, , fil

и дальше по идее пошла докачка в файл #321.
НО: когда я пытаюсь в тот же файл запихать его начало: Put #321, , fil
вылазит ошибка Path/file access error. Т.е. файл открывается, а записать туда не дает.
Как эту проблему решить?
Нехороший какойто файл. Если я этот код на целостном файле пробую -все нормально, а если на недокачанном - косяк.

И еще: если сделать Kill FileName то он блокируется и не удаляется. Лечится только перезагрузкой...

[HandKot]

может антивирус?

[Лёха_Virus]

Нет. Попробовал - антивирус непричем.
Даже если просто попробовать удалить этот файл командой kill filename он блокируется. После перезагрузки исчезает

[alibek]

Number used in the Open statement to open a file. Use file numbers in the range 1–255, inclusive, for files not accessible to other applications. Use file numbers in the range 256–511 for files accessible from other applications.

[Лёха_Virus]

Нет, Алибек, не помогло.
Видишь ли в чем парадокс: файл после обрыва закачки и закрытия нормально удаляется средствами windows.
Но если его попробовать kill то файл блокируется.
А такая последовательность:

Код: Выделить всё

Open FileName For Binary As #444
nFileLength = LOF(444)
ReDim fil(nFileLength - 1)
Get #444, , fil
Close #444

Open FileName For Binary As #445
Put #445, , fil
Close #445

на строке Put #445, , fil вызывает 75ю ошибку.

и еще. попробовал на различных типах файлов. Все проходит нормально, пока дело не доходит до .avi файлов. Так что какая-то с ними проблема, может структура такая хитрая.
Так что основной вопрос снят. Возник вопрос по удалению нецелостных avi файлов