Функция VBA Dir, не работающая над Excel 2010

Question

Я сопоставил местоположение интрасети с помощью проводника файлов. т.е. отображается http://intranet.XXXXXXX.com/mydir/ М: \

Я использую функцию Dir, чтобы проверить, если файл присутствует в этом месте:

Dim FileExists as Boolean 

FileExists = Dir("M:\myfile") <> "" 

If FileExists Then MsgBox "File found in M:" 

Я бегу, что макрос на Excel 2007 и она отлично работает. Однако, когда я запускаю его в Excel 2010, Dir("M:\myfile") всегда возвращает «", даже если файл присутствует в указанном месте. Я не могу найти решение, которое будет работать на обеих версиях Excel. Есть идеи?

Answer 1

Вот как использовать FSO, чтобы делать то, что вы хотите:

Option Explicit 

Dim FullPath  As String 

Function test_it() 
    FullPath = "C:\temp\form1.txt" 
    Debug.Print Does_File_Exist 
End Function 

Private Function Does_File_Exist() As Boolean 
Dim oFs   As New FileSystemObject 
Dim oFile  As File 

    Set oFs = New FileSystemObject 
    If oFs.FileExists(FullPath) Then 
     MsgBox "Found file: " & FullPath 
    Else 
     MsgBox "File not found: " & FullPath 
    End If 

    Set oFs = Nothing 
End Function 

Answer 2

Вы можете добавить расширение файла в качестве символа подстановки в конце FilePath. Я пробовал в excel 2010, и это сработало для меня.

Dim FileExists As Boolean 
    FileExists = Dir("D:\myfile" & "*.txt") <> "" 

    If FileExists Then MsgBox "File found in M:" 

Answer 3

Я обнаружил, что если я использую полное сетевое имя, оно работает первым. Это было не только в VBA, но и некоторые ярлыки - они вернулись «Файл не найден».

Изменение из сопоставленного ярлыка, например.

Y:\Projects\Proj1\File1.xlsx 

до полной отображаемой дорожки, например.

\\server\Department\Projects\Proj1\File1.xlsx 

Исправлена ​​проблема