Datei umbenennen
19.06.2020 14:31:58
Sergej
ich habe in unten beigefügter Funktion einen Fehler (siehe fett dargestellte Zeile im Code) und komme nicht weiter. Es kommt die Fehlermeldung "Laufzeitfehler 70 - Zugriff verweigert". Ich möchte die Datei umbenennen. Die Datei sowie Schreibrechte sind vorhanden. Wer kann mir bitte helfen?
Function findKunPrj(filePath As String)
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(filePath)
Dim StrData
Dim newFile As String
Do Until objFile.AtEndOfStream
StrData = Trim(objFile.ReadLine)
StrData = Replace(StrData, " =", "=")
StrData = Replace(StrData, "= ", "=")
StrData = Replace(StrData, " = ", "=")
If Left(StrData, Len("KUN_PRJ=")) = "KUN_PRJ=" Then
StrData = Replace(StrData, "KUN_PRJ", "")
StrData = Trim(Replace(StrData, "=", ""))
If fileE(StrData) = True Then
Else
Debug.Print filePath & vbNewLine & "==> Pfad existiert nicht: " & StrData & _
vbNewLine
objFSO.MoveFile filePath, filePath & ".archiv"
End If
End If
Loop
End Function
Beste Grüße,Sergej