Solved: Problem application.filesearch: find directory of file

[fboehlandt]

Have found the code you are refering to and adapted it to my needs. The following is the source code as is:

 
Private myList() As String
Sub SearchFiles()
    myFileSearch _
    myDir:="D:", _
    FileNameLike:="file", _
    FileTypeLike:="xlsm", _
    SearchSubFol:=True, _
    myCounter:=0
 
    If Join(myList) = "" Then
        MsgBox "Could not find the requested file.", vbExclamation, "File Search Editor"
    Else
        MsgBox "Found the file at:" & vbLf & Join(myList, vbLf)
    End If
 
End Sub
Private Sub myFileSearch(myDir As String, FileNameLike As String, FileTypeLike As String, SearchSubFol As Boolean, myCounter As Long)
    Dim fso As Object, myFolder As Object, myFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each myFile In fso.GetFolder(myDir).Files
        If myFile.Name Like FileNameLike & "." & FileTypeLike Then
            myCounter = myCounter + 1
            ReDim Preserve myList(1 To myCounter)
            myList(myCounter) = myDir & "\" & myFile.Name
        End If
    Next
    If SearchSubFol Then
        For Each myFolder In fso.GetFolder(myDir).SubFolders
            myFileSearch myDir & "\" & myFolder.Name, FileNameLike, FileTypeLike, True, myCounter
        Next
    End If
End Sub

The error occurs on line: 'For Each myFile In fso.GetFolder(myDir).Files'. The error type is Runtime Error '70': Permission denied. Note that I am trying to search the entire drive D:\ for an excel file. Once I copy the excel-file into a folder and search within the folder (regardless of the number of subfolders), the code seems to work. Does this problem have to do with the admin settings? (I am logged on as adminsitrator with all read / write rights). Any ideas?
thanks in advance
Florian