Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnisstruktur kopieren - ohne Inhalt!

Verzeichnisstruktur kopieren - ohne Inhalt!
27.07.2007 09:55:19
Klaus
Hallo zusammen,
ich möchte den Verzeichnisbaum von einem Laufwerk bzw. von einem bestimmten Unterverzeichnis (z. B. c: \temp) in ein anderes Laufwerk (z. B. d:\sicherung) kopieren.
Es soll nur die Verzeichnisstruktur ohne Inhalt/Dateien kopiert werden (z. B. mit copyFolder klappt das ja nicht).
Im Ziellaufwerk existieren schon Teile des Verzeichnisbaums mit einigen Dateien. Diese sollen natürlich erhalten bleiben, es sollen also nur die "neuen" Verzeichnisse hinzugefügt werden.
Vielen Dank für Euere Hilfe!
Klaus

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

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnisstruktur kopieren - ohne Inhalt!
27.07.2007 10:01:00
Chaos
Servus,
ein Verzeichnis kann man z.B.: so erstellen.
Dim strpfad
strpfad = "C:\Ordner"
If Dir(strpfad, vbDirectory) = "" Then
On Error Resume Next
MkDir strpfad
gilt allerdings immer nur für einen Ordner, d.h.: wenn du z.B. sowas willst.
C:\Ordner\Unterordner, dann musst du das so schreiben:
Dim strpfad, strpfad 1
strpfad = "C:\Ordner"
If Dir(strpfad, vbDirectory) = "" Then
On Error Resume Next
MkDir strpfad
strpfad1 = "C:\Ordner\Unterordner"
If Dir(strpfad1, vbDirectory) = "" Then
On Error Resume Next
MkDir strpfad1
Gruß
Chaos

Anzeige
AW: Verzeichnisstruktur kopieren - ohne Inhalt!
27.07.2007 11:18:00
ransi
Hallo Klaus
Teste mal das hier:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Dim arr
Dim L As Long

Public Sub Aufruf()
Dim objShell As Object
Dim objFolder As Object
Dim objItem As Object
L = 0
Redim arr(1)
Set objShell = CreateObject("Shell.Application")
With objShell
    Set objFolder = .BrowseForFolder(0&, "Startordner suchen", 0)
End With
If Not objFolder Is Nothing Then
    Set objItem = objFolder.Self
    arr(L) = objItem.Path
    arr(1) = "D:\Testordner"
    L = 1
    Else: Exit Sub
End If
Schreiben objItem.Path
verzeichnisse_erstellen (arr)
End Sub

Public Sub Schreiben(Suchordner)
Dim fso As Object
Dim datei
Dim Unterordner
Set fso = CreateObject("Scripting.FileSystemObject")
Set datei = fso.getfolder(Suchordner)
On Error Resume Next
For Each Unterordner In datei.subfolders
    L = L + 1
    Redim Preserve arr(L)
    arr(L) = Replace(Unterordner.Path, arr(0), "D:\Testordner")
    Schreiben Unterordner
Next
Set fso = Nothing
Set datei = Nothing
End Sub

Public Sub verzeichnisse_erstellen(a)
Dim LNG As Long
On Error Resume Next
For LNG = 1 To UBound(arr)
    If Dir(arr(LNG)) = "" Then MkDir arr(LNG)
Next
End Sub
Nimm aber erstmal verzeichnisse in denen nichts steht.
ransi

Anzeige
AW: Verzeichnisstruktur kopieren - ohne Inhalt!
29.07.2007 12:56:00
klaus
Hallo Ransi,
klappt ganz gut und mit einem zusätzlichen Check, ob es das Verzeichnis auf dem Ziellaufwerk existiert (in diesem Fall wird das Verzeichnis natürlich nicht neu angelegt) werden dort auch keine Dateien überschrieben...
Danke und Gruß
Klaus

312 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Diagramm mit VBA ohne Bezüge kopieren
Dagmar

Hallo VBA-Experten,
ich kopiere per VBA den Inhalt eines Vorlagenblattes (nicht das Blatt selber, das geht nicht, weil die Copy-Methode nur begrenzt durchführbar ist) und dort ist auch ein Diagramm enthalten. Dummerweise bleiben beim Kopieren die festen Bezüge erhalten und verweisen so auf...
10.12.2008 07:43:00
Thread-ID: 1031557
4 Beiträge
Anzeige
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blatt Kopieren ohne Shapes
ptonka

Hallo zusammen,
ich kopiere den Inhalt eines gesamten Blattes (Tabelle1) auf ein 2. Blatt (Tabelle2) um die Daten dort weiter zu verarbeiten. Nun habe ich auf Tabelle1 mehrere Schaltflächen, um Makros zu starten.
Diese werden beim kopieren (per VBA) auch mit auf das 2. Blatt kopiert.
22.07.2009 10:53:00
Thread-ID: 1090452
16 Beiträge
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
2
3
3
2
2
15
3
4
3
4
1
5
2
5
2
2
1
6
7
1
6
1
2