Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige