Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1764to1768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei umbenennen

Datei umbenennen
19.06.2020 14:31:58
Sergej
Hallo Leute,
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei umbenennen
19.06.2020 14:46:21
mumpel
Du kannst auch mit "Name" umbenennen.
AW: Datei umbenennen
19.06.2020 15:20:03
Sergej
Hallo mumpel,
ich habe es mit Name auch probiert. Leider ohne Erfolg...
Name filePath As filePath & ".archiv"
Laufzeitfehler 75 - Fehler beim zugriff auf Pfad /Datei
Gruß,
Sergej
Dann ist klar, dass keine validen Dateiname
19.06.2020 15:40:43
EtoPHG
in vorliegen. Sergej
vielleicht mal vor den Befehl

Debug.Print filePath
Debug.Print filePath & ".archiv"
setzen und im Direktfenster des nachschauen, was dabei herauskommt.
Gruess Hansueli
AW: Dann ist klar, dass keine validen Dateiname
19.06.2020 15:46:32
Sergej
Hallo Hansueli,
Debug.Print filePath & ".archiv" bringt dies
P:\Müller GmbH\DE-TES01\Projekte\2020\Grundschule XYZ\18-Angebote\test.cfg.archiv
Gruß,
Sergej
Anzeige
und jetzt?
19.06.2020 15:59:23
EtoPHG
Sergej,
Erwartest du, dass ich test ob dieser Dateiname auf meinem Rechner valide ist?
Du musst schon sicher sein, dass du eine solche Datei in deiner Umgebung erzeugen kannst.
Ich kann nicht mehr weiterhelfen!
Gruess Hansueli
AW: Datei umbenennen
19.06.2020 16:21:28
volti
Hallo Sergej,
ich bin mir nicht sicher, ob überhaupt 6-stellige Suffixe unterstützt werden.
Ich kenne nur maximal vierstellige wie z.B. .html.
Probiere doch einfach mal statt .archiv nur .arc o.ä.
viele Grüße
Karl-Heinz
AW: Datei umbenennen
19.06.2020 15:37:25
peterk
Hallo
a) Du versuchst Deinen File in einer Schleife zu verschieben
b) einen offenen File kann man nicht verschieben
Peter
Anzeige
AW: Datei umbenennen
19.06.2020 15:49:37
Sergej
Hallo Peter,
ich möchte die Datei nicht verschieben, sondern umbenennen. Die Datei ist eigetnlich nicht geöffnet.
Was muss ich bitte im Code aus deiner Sicht ändern?
Gruß,
Sergej
AW: Datei umbenennen
19.06.2020 15:56:55
peterk
Hallo
Ich weiss nicht was Deine Funktion "FileE" macht, aber bevor Du "objFSO.MoveFile" aufrufst, brauchst Du ein "objFile.Close"
Peter
AW: Datei umbenennen
19.06.2020 17:50:17
Sergej
Hallo Peter,
das ist die Lösung. Vielen Dank.
Gruß,
Sergej

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige