Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien mit Endung .csv umbennen in .xls; vba

Dateien mit Endung .csv umbennen in .xls; vba
18.06.2004 08:06:19
franz
Guten Morgen !
Bitte ein Tipp für folgenden Sachverhalt:
In einem immer selben Verzeichnis liegen mehere Dateien.
Nun sollen alle Dateien mit Endung "*.csv", wenn vorhanden,
unter gleichem Namen -aber mit Endung "xls" umbenannt werden.
Gruss
Franz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien mit Endung .csv umbennen in .xls; vba
18.06.2004 10:09:10
Heinz
Hallo Franz,
z.B. so:

Sub DateiUmbennen()
Dim I As Integer
Dim a, b, msg$
With Application.FileSearch
.LookIn = "C:\daten\#test\"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Filename = "*.csv"
If .Execute() > 0 Then
If .FoundFiles.Count = 1 Then
msg = "Es wurde eine Datei gefunden."
Else
msg = "Es wurden " & .FoundFiles.Count & " Dateien gefunden."
End If
MsgBox msg
For I = 1 To .FoundFiles.Count
a = .FoundFiles(I)
b = Left(.FoundFiles(I), Len(.FoundFiles(I)) - 4) & "xls"
Name a As b
Next I
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub

Gruß
Heinz
Anzeige
AW: Dateien mit Endung .csv umbennen in .xls; vba
18.06.2004 10:20:28
franz
Hallo Heinz,
vielen Dank für deine Mühe.
Gruss
Franz

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige