Thema Datum  Von Nutzer Rating
Antwort
Rot Unterordner erstellen
 31.05.2009 17:00:17 Andi
NotSolved
03.06.2009 10:51:40 Holger
NotSolved

Ansicht des Beitrags:
Von:
Andi		 Datum:
31.05.2009 17:00:17		 Views:
1743		 Rating:
     
Antwort:
  Ja
Thema:
Unterordner erstellen
Hallo Forum,

ich möchte mit Ordner für Sicherungskopien erstellen.
Struktur

2009\
01
02
usw
2010\
01
usw.

Dafür habe ich eine excel liste:
in A1 steht das Jahr und in der Spalte B jeweil fortlaufend 01 bis 12
in A 13 dann das nächste Jahr

In einem anderem Forum habe ich bereits etwas gefunden was in diese Richtung geht:


Sub ordner_pruefen_und_anlegen()
Dim sVerz As String
Dim strname As String
Dim strnummer As String
Dim i As Integer
i = 1 'beginn der abfrage in zeile i
Do While Cells(i, 1) <> "" 'solange schleife bis zelle i in spalte a leer
strname = Cells(i, 1) ' name aus zeile i und spalte a
sVerz = Dir("D:\" & strname, 16) 'verzeichnis einlesen
If sVerz = "" Then MkDir ("D:\" & strname) 'prüfen ob vorhanden wenn nein dann anlegen
i = i + 12
End Sub

Das funktioniert auch ganz gut.

Jetz möchte ich wie gesagt die Unterordner erstellen lassen.
Jetzt soll abgefragt werden, ob der Überordner bereits besteht, falls er durch obige Schleife angelegt wurde. Wenn ja, dann soll nach diesem Schema jetzt in dem Ordner die Monate (01 bis 12) erstellt werden.

Bin ein Neuling und vielleicht kann mir jemand helfen

Vielen Dank im voraus

Gruß Andi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Unterordner erstellen
 31.05.2009 17:00:17 Andi
NotSolved
03.06.2009 10:51:40 Holger
NotSolved