Runtime Error 76 Path not found
Solution 1
Allright I found an answer! Windows can only handle paths under 255 characters.
So all you have to do is add \\?\
before a path, for example \\?\c:\users
on server adressen you have to add \\?\unc
--> \\?\unc\servername\path
Hope that helps you out!
Solution 2
I get this error when the file I am trying to reach is in SharePoint. As a workaround what I do is I will open that link in Explorer view (SharePoint link - Library - Connect & Export - Open with Explorer). Once I have the SP in explorer view it functions smoothly. To resolve this we have to map that SP link into a drive and call the drive address instead of SP link. Link for that - Get the content of a sharepoint folder with Excel VBA
Comments
-
Chris over 3 years
I have this Error Message, i'm completely lost...
I think I checked everything that could be wrong, maybe one of you guys can see a mistake or something. My brain is now completely blocked.
Thanks in advance
Option Explicit Public newestFile As Object Sub Scan_Click() Dim path As String Dim row As Integer: row = 2 Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("ETA File Server") With ws Do If .Cells(row, 1).Value = "" Then Exit Do path = .Cells(row, 1).Value Application.StatusBar = "Processing folder " & path DoEvents If .Cells(row, 1).Value <> "Root" Then Call getNewestFile(path) .Cells(row, 9).Value = newestFile.DateLastModified .Cells(row, 10).Value = newestFile.Name Set newestFile = Nothing row = row + 1 Else row = row + 1 End If Loop End With Application.StatusBar = "Done" End Sub Private Sub getNewestFile(folderpath As String) Dim objFSO As Object, objFolder As Object, objFile As Object 'get the filesystem object from the system Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(folderpath) 'go through the subfolder and call itself For Each objFile In objFolder.SubFolders Call getNewestFile(objFile.path) DoEvents Next For Each objFile In objFolder.Files If newestFile Is Nothing Then Set newestFile = objFile ElseIf objFile.DateLastModified > newestFile.DateLastModified Then Set newestFile = objFile End If Next End Sub