Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
996to1000
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
Inhaltsverzeichnis

Ordner automatisch umbenennen

Ordner automatisch umbenennen
30.07.2008 16:39:00
Oliver
Hallo zusammen
Ich möchte aus einer Excelliste die Namen übernehmen und neue Ordner mit diesem Namen
erstellen lassen, geht das mit einem Makro?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner automatisch umbenennen
30.07.2008 20:04:04
Tino
Hallo,
so kann man Ordner erstellen.

Dim NeuerOrdner As String
NeuerOrdner = "C:\Test_Ordner"
MkDir NeuerOrdner


Erstellt aber keine Unterordner!
Mit Unterordner muss dies so aussehen.


Dim NeuerOrdner As String
NeuerOrdner = "C:\Test_Ordner"
MkDir NeuerOrdner
MkDir NeuerOrdner & "\NeuerOrdner2"


Sind die Ordner schon vorhanden kommt es zu einem Fehler.
Gruß Tino

AW: Ordner automatisch umbenennen
30.07.2008 20:06:41
Daniel
Hi
das geht mit einem Makro
einen neuen Ordner kannst du auf diese weise erstellen:

Sub test()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder ("C:\Test")
End Sub


Gruß, Daniel

Anzeige
AW: Ordner automatisch umbenennen
30.07.2008 20:37:00
Lothar
Hi,
wirf mal einen Blick ins Archiv: "MakeSureDirectoryPathExists"
mfg Lothar

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige