Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

DAtei umbenennen?

Forumthread: DAtei umbenennen?

DAtei umbenennen?
ing.grohn
Hallo Forum,
mit folgender Sequenz hole ich mir informationen zu etlichen Dateien in verschiedenen UV's (hier die Anzahl der Wörter ind docDateien):. 
 For Each vntName In objFolder.Items
i = i + 1
Cells(i, 8).Value = vntName
If LCase$(Right$(vntName, 4)) = ".doc" Or _
LCase$(Right$(vntName, 5)) Like ".doc*" Then
lngRow = lngRow + 1
Cells(lngRow, 1).Value = vntName
Cells(lngRow, 2).Value = objFolder.GetDetailsOf(vntName, lngItemIndex)
End If
Next

Wie kann ich Dateien in diesem Durchlauf umbenennen ?
Für eine Antwort bedanke ich mich
Mit freundlichen Grüßen
Albrecht
Anzeige

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

Betreff
Benutzer
Anzeige
Name strAlterName As strNeuerName _oT
11.12.2011 17:22:09
NoNet
_oT = "ohne Text"
AW: Name strAlterName As strNeuerName _oT
11.12.2011 18:44:24
ing.grohn
Hallo Nonet,
vielen Dank für Deine Hilfe!
Ich hatte es etwas koplizierter gemacht: 

For Each vntName In objFolder.Items
i = i + 1
Cells(i, 8).Value = FOLDER_PATH & Chr$(lngPathIndex) & "\" & vntName
If Not LCase$(Right$(vntName, 4)) = ".doc" Or _
Not LCase$(Right$(vntName, 4)) Like ".xls" Then
If objFSO.FileExists(FOLDER_PATH & Chr$(lngPathIndex)  _
& "\" & vntName)  Then
Dateiname = Replace(vntName, ".", "_")
objFSO.MoveFile FOLDER_PATH _
& Chr$(lngPathIndex) & "\" _
& vntName, FOLDER_PATH & Chr$(lngPathIndex) _
& "\" & DatName & ".doc"
End If
End If
Next

hier kann m.E noch feststellen, obs eine Datei oder ein Verzeichnis ist.
Aber eben etwas umständlich.
Mit freundlichen Grüßen
Albrecht
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige