Ошибка 3002 не удается открыть файл adodb stream

Option Explicit


Public Sub ReadLargeFile(ByVal fileCurrent As Scripting.File)

    Dim FileStream As ADODB.Stream
    Set FileStream = New ADODB.Stream
    FileStream.Type = adTypeText
    FileStream.LineSeparator = adCRLF
    FileStream.Mode = adModeReadWrite
    FileStream.Open
    FileStream.LoadFromFile fileCurrent.Path
    MsgBox FileStream.ReadText(-2)
    FileStream.Close

End Sub

8

Option Explicit


Public Sub ReadLargeFile(ByVal fileCurrent As Scripting.File)

    Dim FileStream As ADODB.Stream
    Set FileStream = New ADODB.Stream
    FileStream.Type = adTypeText
    FileStream.LineSeparator = adCRLF
    FileStream.Mode = adModeReadWrite
    FileStream.Open
    FileStream.LoadFromFile fileCurrent.Path
    MsgBox FileStream.ReadText(-2)
    FileStream.Close

End Sub

2018-02-07 19:17

1
ответ

Почему я получаю сообщение «Не удалось открыть файл?» ошибка в ADODB.Stream

Проблема

В настоящее время я получаю Run-time error '3002': File could not be opened в строке ниже FileStream.LoadFromFile fileCurrent.Path.

Что я пробовал

• Убедитесь, что путь действителен
  • В ближайшем окне я вижу, что ?fileCurrent.Path = C:Users(puzzlepiece87)DesktopTest.txt
• Использование свежего текстового файла
  • Я создал Test.txt как пустой файл, в котором набрал «Hello», нажал Enter, набрал «Goodbye», а затем сохранил его как файл по умолчанию ANSI.
• Убедиться, что процедура, находящаяся в модуле класса, ничему не повредила
  • Я тоже пробовал это в стандартном модуле
• Я пробовал переместить его из Personal.xlsb в стандартную книгу
  • При использовании стандартной книги возникла та же проблема.

Остающиеся вопросы

• Что я делаю не так, что вызывает ошибку 3002?
• Я неправильно понимаю параметр .LoadFromFile FileName? Здесь написано , что он примет любой допустимый путь и имя в формате UNC.

Модуль класса classReallyBigFiles

Option Explicit


Public Sub ReadLargeFile(ByVal fileCurrent As Scripting.File)

    Dim FileStream As ADODB.Stream
    Set FileStream = New ADODB.Stream
    FileStream.Type = adTypeText
    FileStream.LineSeparator = adCRLF
    FileStream.Mode = adModeReadWrite
    FileStream.Open
    FileStream.LoadFromFile fileCurrent.Path
    MsgBox FileStream.ReadText(-2)
    FileStream.Close

End Sub

Я слишком усердно MCVE и упустил ту часть, где я открывал файл как двоичный, а затем пытался ADODB.Stream, когда файл был слишком большим, чтобы сохранить все содержимое файла в строку с помощью этого метода, но я забыл закрыть Бинарная попытка первая.

• Remove From My Forums

• Question

• User-561325632 posted
  Hello, Our existing application in .NET calls ASP web page to fetch image from server.
  
  Following is code excerpt which is giving error in newly deployed 2008R2 64 bit server with IIS7
  The error that is thrown is from 5th line below and error# is 3002.

  I’ve exhausted my web search before posting this issue.
  I’ve used «Classic pool» with «Full control» to the directory for specific user in «Identity» in respective application pool.
  Is this even supported in 64 bit server ? Any idea is appreciated.

  Thanks
  Vaquar

  Set Stm = CreateObject(«ADODB.Stream»)
  Stm.Type = adTypeBinary
  Stm.LoadFromFile(path)
  If Err.description <> «» Then
  Response.Write(«ScanUtil.asp:LoadFromFile:»&Err.description)
  Stm.Close
  Set Stm = Nothing
  Response.End
  End If
  iSize = Stm.Size
  chunk = 524288
  Response.AddHeader «content-Length»,iSize
  For i = 1 to iSize chunk
  If Response.IsClientConnected Then
  Response.BinaryWrite Stm.Read(chunk)
  Response.Flush
  If Err.description <> «» Then
  Response.Write(«ScanUtil.asp:Read: «&path& chr(13) & chr(10)&» ErrorDesc:»&Err.Description& chr(13) & chr(10)&» ErrorNumber:»&Err.number& chr(13) & chr(10))
  Stm.Close
  Set Stm = Nothing
  Response.End
  End If
  Else
  Exit For
  End If
  Next
  …