---

Hallo an Alle,

mein folgendes VB Script:
Hier verschiebt er die Dateien nacheinander und benennt es gleichzeitig um. Ich habe hier ein kleines Problem noch.
Bei der Umbenennung der Dateien, ist hier das Punkt als Begrenzung angegeben.

Dann heissen meine Dateien wie z.B. VE123456789.---B001.CATDrawing

Wie könnte man dies Abändern, das die Dateinamenstruktur so heisst:
VE123456789---B001.CATDrawing?

Do

txtFilePath = Dir("V:\Wiederholteile\HELLER\Zeichnungen\*.CATDrawing")

If txtFilePath.Text = "" Then Exit Do
   
 
  Dim fso As New FileSystemObject
         
  Dim LastExtPos As Integer
  LastExtPos = InStrRev(txtFilePath.Text, ".", -1)
  txtFilePath.Text = Right(txtFilePath.Text, LastExtPos)
         
  txtfilepath2 = "V:\Wiederholteile\HELLER\Zeichnungen\"
  txtfilepath3 = "V:\Wiederholteile\HELLER\Zeichnungen\1\"
   
  If fso Is Nothing Then Set fso = New FileSystemObject
  fso.MoveFile txtfilepath2 & txtFilePath.Text & "CATDrawing", txtfilepath3 & txtFilePath.Text & "---B001.CATDrawing"

  Loop While Not txtFilePath.Text = ""

End

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Feyza,

ich bin mir nicht sicher, ob ich dich richtig verstehe, aber ich würde vorschlagen mit...
txtFilePath.Text = Left(txtFilePath.Text, LastExtPos-1)

HTH pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen paplo,

Danke für Deinen Eintrag,

die Änderung hat das genau ausgeführt, was ich haben wollte : )

Schönen Gruß
Feyza : )

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP