Office: (Office 2010) FileSystemObject (FSO) Fehler: 70 Zugriff verweigert

xlph · 7. Februar 2015

Hallo,

kann mir jemand sagen warum ich den Fehler '70' erhalte?

Kann das jemand mal testen?

Es sollen alle Dateien mit ihren Pfadangaben gelistet werden.

Der Fehler taucht in der Prozedur (rekursiv) 'ListFilenames' in der
Dateien-Schleife auf.

Müssen die Schleifen (Dateien & Unterordner) verschachtelt werden?

Code:

Public Sub ListFilenames_FSO_Start()

'On Error GoTo errorHandling

Dim objFSO As Object
Dim objFolder As Object
Dim colLog As Collection

Dim t As Single: t = Timer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\") 'Startordner | Anpassen *****

If Not objFolder Is Nothing Then
Set colLog = New Collection
Call ListFilenames(objFolder, colLog)
Call outputLog(colLog)
End If

Debug.Print "FSO", Timer - t

errClearUp:
Set objFolder = Nothing
Set objFSO = Nothing
Set colLog = Nothing
Exit Sub

errorHandling:
If Err Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
Resume errClearUp

End Sub

Private Function ListFilenames(ByRef objFolder As Object, Optional colLog As Collection)

Dim objFile As Object, objSubfolder As Object, strFolderPath As String, strFileName As String

For Each objFile In objFolder.Files '

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 9. Februar 2015

Hallo xlph,

hast Du mal geprüft, welcher Ordner gerade bearbeitet wird? Irgendwelche Besonderheiten zu erkennen? Schau auch mal im Lokalfenster, welche Eigenschaften dort beim objFolder gelistet sind. Ich vermute, Du hast einen Systemordner "an der Angel".

Warum nimmst Du weiterhin das langsame FSO? Hat Dich die Shell nicht überzeugt?

Grüße
EarlFred

xlph · 9. Februar 2015

Hallo,

wie prüfe ich bzw umgehe es?

EarlFred · 9. Februar 2015

Hallo xlph,

[Edit]
lass den Code ohne Fehlerbehandlung vor die Wand fahren. Sobald Du aufgefordert wirst zu debuggen (wirst Du doch, oder?) schaust Du Dir im Lokalfenster die Variablen mitsamt Inhalt an. Vor allem der zu durchsuchende Ordner "objFolder" ist von Interesse.

Wenn Du weißt, welches Verzeichnis Dir Probleme bereitet, kannst Du es ausdrücklich ausschließen.

Andernfalls müsste doch auch in diesem Fall eine Fehlerbehandlung in der aufgerufenen Sub ihren Zweck erfüllen, um den Ordner zu übergehen, oder ist der Fehler nicht abfangbar?

Grüße
EarlFred

xlph · 9. Februar 2015

Hallo,

ich gebs auf.

FSO ist 3x schneller als Shell...nach meinen Messungen.

daolix · 9. Februar 2015

Hallo
sowas hatte ich auch mal vor einer weile getestet, erst war Shell schneller, nach ein paar Tagen war es FSO und jetzt isses wieder Shell. Shell is wohl ne kleine Zicke. Daher bleib ich bei API. Das ist imma schnell und schneller als die anderen.

xlph · 9. Februar 2015

Hallo daolix,

popste mal den API-Code oder nen Link.

xlph · 9. Februar 2015

Hab was bei maninweb gefunden:

Excel-Ticker

daolix · 9. Februar 2015

Hallo

Api-Code: Simples Auflisten aller Dateien im Start- und Unterordnern
Code:

Private Declare Function EnumDirTreeW Lib "Dbghelp.dll" (ByVal hProcess As Long, ByVal RootPath As Long, ByVal InputPathName As Long, ByVal OutputPathBuffer As Long, ByVal cb As Long, ByVal data As Long) As Long
Private Declare Function lstrlenW Lib "KERNEL32.DLL" (ByVal lpString As Long) As Long
Private Declare Function lstrcpyW Lib "KERNEL32.DLL" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long

Private Const m_Path As String = "Q:\" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xlph · 9. Februar 2015

Danke, gut zu wissen.

Office: (Office 2010) FileSystemObject (FSO) Fehler: 70 Zugriff verweigert

FileSystemObject (FSO) Fehler: 70 Zugriff verweigert

FileSystemObject (FSO) Fehler: 70 Zugriff verweigert

FileSystemObject (FSO) Fehler: 70 Zugriff verweigert

FileSystemObject (FSO) Fehler: 70 Zugriff verweigert

FileSystemObject (FSO) Fehler: 70 Zugriff verweigert - Similar Threads - FileSystemObject FSO Fehler

Fehler (0x800CCC78) beim Ausführen der Aufgabe "xx.yyyy@kabelmail.de - Nachrichten werden gesendet"

Fehler beim SVERWEIS Vermeidbar?

Installation schlägt fehl - Fehler in OfficeClickToRun.exe

Bei meinem Outlook (new) fehlen wichtige Funktionen!

Ständige Passwortabfrage und Kalendersyncronisations Fehler

Formel mit INDEX, MATCH und MAX gibt Fehler #NAME!

Wert Fehler