Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige