Ein "Dir" sperrt mit sehr großer Sicherheit keinen Ordner.
Ich würde den Fehler eher in Deiner Funktion "px_readFileContent" suchen... vermutlich machst Du da eine andere Applikation auf, die im Fehlerfall nicht richtig beendet wird.
Oder aber Du benutzt ein "open", ohne ein close aufzurufen...
Der gepostete Code alleine verursacht keinen Lock eines Ordners, da bin ich sicher.
Beweis: Dieser Code kann bei jedem beliebigen msgbox angehalten werden, und der Ordner "temp" gelöscht werden, obwohl der Dir noch nicht durch ist...Dim datei as String
Dim tempPfad as String
Dim ctr as Integer
Dim dateiInhalt as Variant
tempPfad = "D:\Temp\test\"
msgbox tempPfad
datei = Dir(tempPfad, 0)
Do While datei <> ""
ctr = ctr + 1
dateiInhalt = Split( "bla,blub" , "," )
msgbox datei
datei = Dir()
Loop