PDA

Vollständige Version anzeigen : Datei umbenennen


tbittner
02.08.2001, 10:29
Hallo zusammen,
hat jemand eine Idee wie ich diesen Code bebasteln muß, um die Dateikennung in Name.txt umzuwandeln???
Die Datei heißt Kalidat.001 und nach dem Click Kalidat1.001 soweit ok, aber ich möchte nun noch Kalidat1.001 in Kalidat1.txt umwandeln!?

Private Sub Befehl6_Click()
Dim strDatei As String
Dim strNeu As String
Dim intCnt As Integer
intCnt = 0
strDatei = Dir("C:\Test\*.*")
While strDatei <> ""
intCnt = intCnt + 1
strNeu = Left(strDatei, InStr(strDatei, ".") - 1) & CStr(intCnt) & Mid(strDatei, InStr(strDatei, "."))
Name "C:\Test\" & strDatei As "C:\Test\" & strNeu
strDatei = Dir()
Wend

vielen Dank
mfg
tbittner

A.S.
02.08.2001, 10:49
Hallo tbittner,

strNeu = Left(strDatei, InStr(strDatei, ".") - 1) & trim(str(intCnt)) & ".txt"

sollte helfen.

Gruß

Arno