네트워크 파일 경로가 VBA/MSAccess에서 열리지 않습니다.

Question

MS Access에서 VBA를 사용하고 있고 하위 중 하나가 네트워크에서 파일 경로를 가져 와서 파일이 있는지 여부를 확인하고 쿼리 결과를 기록합니다. 그것. 문제는 코드를 실행하려고하면 오류 52 (잘못된 파일 이름 또는 번호)이 표시된다는 것입니다. 그러나 Windows 탐색기에서 네트워크 경로를 먼저 열면 예를 들어 오류가 더 이상 발생하지 않습니다. 문제가 무엇인지에 대한 아이디어가 있습니까?

이

fpath = "\\networkpath\file.txt" 
DeleteFile fpath 

Sub DeleteFile(ByVal FileToDelete As String) 
    FileExists(FileToDelete) Then 
     SetAttr FileToDelete, vbNormal 
     FileToDelete 
    End If 
End Sub 

Function FileExists(ByVal FileToTest As String) As Boolean 
    FileExists = (Dir(FileToTest) <> "") 'this is where the error happens 
End Function 

Answer 1

가 사용하는 UNC 경로는 악센트와 같은 비 ASCII 문자가 포함되어 있습니까 : 나는 실행 해요 코드의 일부는 여기에

입니까? 정확한 경로는 무엇입니까?

어쨌든 VBA의 파일 기능은 유니 코드와 잘 작동하지 않습니다.

당신은 동일을 달성하기 위해 FileSystemObject를 사용하려고 할 수있는 좀 더 안정적으로보다 빌드에서 VBA 기능 :

Public Function FileExists(filePath as string) as Boolean 
    Dim o As Object 
    Set o = CreateObject("Scripting.FileSystemObject") 
    FileExists = o.FileExists(filePath) 
End Function 

는 Win32 API 그쪽을 사용하는 대신 32 비트 및 64 비트 환경에서 작동합니다

Private Const INVALID_FILE_ATTRIBUTES As Long = -1 

#If VBA7 Then ' Win API Declarations for 32 and 64 bit versions of Office 2010 and later 
    Private Declare PtrSafe Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesW" (ByVal lpFileName As LongPtr) As Long 
#Else ' WIN API Declarations for Office 2007 
    Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesW" (ByVal lpFileName As Long) As Long 
#End If 

Public Function FileExists(fname As Variant) As Boolean 
    If IsNull(fname) Or IsEmpty(fname) Then Exit Function 
    ' Make sure that we can take care of paths longer than 260 characters 
    If Left$(fname, 2) = "\\" Then 
     FileExists = GetFileAttributes(StrPtr("\\?\UNC" & Mid$(fname, 2))) <> INVALID_FILE_ATTRIBUTES 
    Else 
     FileExists = GetFileAttributes(StrPtr("\\?\" & fname)) <> INVALID_FILE_ATTRIBUTES 
    End If 
End Function