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
Anzeige
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 18:22:09
NoNet
_oT = "ohne Text"
AW: Name strAlterName As strNeuerName _oT
11.12.2011 19: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

Forumthreads zu verwandten Themen

Datei mit variablem Namen suchen und umbenennen
Janosch

Guten Morgen liebe Foren-Mitglieder,
ich bin auf der Suche nach einem VBA-Code, der mir eine Datei mit variablem Namen sucht. Dabei ist der Präfix des Dateinamen immer gleich, allerdings wird dieser erweitert um eine Zahlen- und Buchstabenfolge.
Ich möchte die Datei (z.B. Test_Daten_125...
07.09.2018 12:50:38
Thread-ID: 1643969
1 Beitrag
Dateikorruption
Bergmann Sabine

Hallo,
bei der Nutzung von Excel-97-Dateien im WinNT-Netz treten in letzter Zeit Probleme mit der Dateispeicherung in verschiedener Ausprägung auf.
Gemeinsam ist dabei, daß eine Zusatzdatei mit 8-Zeichen-langem Dateinamen, mit Hexadezimal-Ziffern, automatisch erzeugt und im Herkunftsverze...
08.11.2002 14:41:19
Thread-ID: 178761
2 Beiträge
Ordner auf USB-Stick mit Makro umbenennen
Niclaus

Hallo
Ein USB-Stick enthält einen Ordner "Uebertrag" mit verschiedenen Ordnern, die ihrerseits wieder Unterordner und Dateien enthalten. Von Zeit zu Zeit muss ich diesen Ordner umbenennen.
Ich stecke den USB-Stick ins Laufwerk F:\ und der Windows-Explorer öffnet sich. Ich starte (in Exc...
16.02.2019 17:22:08
Thread-ID: 1676045
2 Beiträge
Daten aus mehreren Exceltabellen in eine Übersicht
Andreas

Hallo Experten
ich suche derzeit ein Lösung, aus mehreren Exceldateien einzelne Felder, die auf 3 Reitern verteilt sind, zusammenzufassen.
Dafür habe ich einen Ordner, in dem eine Vielzahl exakt gleich aufgebauter Excel Dateien liegen. Diesen Ordner möchte ich als Basis nutzen, aber auc...
12.09.2018 19:24:58
Thread-ID: 1645094
6 Beiträge
Geöffnete Datei schließen, umbenennen un
Uwe
Franz (fcs), der leider verstorben ist, hat mir vor 2 Jahren geholfen fmc-Dateien von einer neueren Version in eine ältere Version umzuwandeln, so dass ich mit diesen Daten auf meiner alten CNC arbeiten kann. Dort brauchte ich nur einen Schalter in der Excel-Datei betätigen, der Explorer hat sich da...
06.01.2023 23:55:12
Thread-ID: 1914535
18 Beiträge
Sheets aus verschiedenen Dateien zusammenfassen
Flo

Hallo zusammen,
ich komme gerade leider ohne Hilfe nicht weiter.
Ich versuche, aus insgesamt circa 50 unterschiedlichen Dateien je ein Worksheet via VBA zu einem anderen Workbook zu kopieren. Das eine Sheet in all den Dateien trägt immer den gleichen Namen, weswegen es bestenfalls auch...
07.06.2016 11:50:25
Thread-ID: 1497324
7 Beiträge
Import aus Datei mit unbekanntem Namen
Günther
Guten Tag sehr verehrte Damen und Herren,
ich importiere aktuell auf folgende Art Daten aus einer Quelldatei in meine Zieldatei:
Sub ImportAllesClosed() ' ImportAllesClosed Makro ' Importierung der Ebenen und BOM aus der geschlossenen Datei BOM.xlsx Application.ScreenUpdating = False Applica...
08.03.2021 23:16:43
Thread-ID: 1818463
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum