Anzeige
Archiv - Navigation
264to268
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Unterverzeichnis anlegen

Unterverzeichnis anlegen
05.06.2003 13:12:58
christian
Hallo

ich möchte gern ein Unterverzeichnis über VBA anlegen lassen. Der komplette Verzeichnisbaum ist in Zelle "A1" hinterlegt und der neue Unterverzeichnisname ist in Zelle "B1" hinterlegt.

Womit kann ich das Unterverzeichnis anlegen lassen.

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

Betreff
Datum
Anwender
Anzeige
Re: Unterverzeichnis anlegen
05.06.2003 13:18:09
Bernd Held

Hallo Christian,

Sub DateiSpeichern()
Dim B As Boolean
dim Ordner as string
dim uordner as string
ordner= Range("A1").value 'z.B. "C:\Eigene Dateien\"
uordner= Range("B1").value 'z.B. "Test\"


B = VerzDa(Ordner)
If B = False Then
'Neuanlage des Verzeichnisses
MkDir Ordner & Uordner
Else
End If
ChDir Ordner & Uordner
'Speicherung der Datei

End Sub

Function VerzDa(s As String) As Boolean
On Error GoTo fehler
ChDir (s)
VerzDa = True
Exit Function

fehler:
VerzDa = False
End Function

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF) unter: http://held-office.de




Anzeige
Re: Unterverzeichnis anlegen
05.06.2003 13:24:09
christian

Danke

funktioniert super.

Ciao Christian

Re: Unterverzeichnis anlegen
05.06.2003 13:25:35
L.Vira

Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub MakeSure_Dir()
MakeSureDirectoryPathExists [a1] & [b1]
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige