Ordner im Filesystem anlegen

Stony · 19. April 2006

Hallo!

Wie kann ich einen Ordner im Filesystem anlegen? Vorher sollte allerdings geprüft werden, ob der Ordner ggf. schon existiert.

Ich dachte mir das so irgendwie:

Code

Mkdir "D:\"&directoryNamepath =  " "& Inputbox ( "Please type in the memory path for the notes.ini or use default" , "Notes.ini memory path" , "D:\"&directoryName) & "\notes.ini"

Das Problem ist nur, dass er am Anfang des Foldername eine Leerzeile einschiebt.

Code

Mkdir "D:\"&directoryName

directoryName ist eine String-Variable.

Schon mal vielen Dank für eure Hilfe....!

Gruß Jan

dnotes · 19. April 2006

Wo wird ein Leerzeichen eingefuegt??
Bei der Variable Path ist das auch kein Wunder.
Und wo wird die Variable DirectoryName gefuellt??

Stony · 19. April 2006

Hallo!

Die Variable wird hier gefüllt:

Code

directoryName = uidoc.FieldGetText ("headingName")

Gruß Jan

gossifu · 19. April 2006

Hallo,

versuch es mal mit ChDir, wenn der Pfad nicht da ist, müsste es einen Fehler geben.

z.Bsp.

Code

Function exists(path As String) as Variant  
   On Error goto Errorhandler
   exists = True
   ChDir path
   Exit Function
Errorhandler:   
   exists = False
End Function

Und dann nur noch in der Hauptroutine auf True oder False prüfen.

mfg

Kjeld

Stony · 19. April 2006

Hallo!

OK, dass mit der Funktion ist schon mal nicht schlecht, aber wie bekomme ich die Leerzeile am Anfang des Ordnernamens weg?

Gruß Jan

gossifu · 19. April 2006

Hallo,

Leerzeile oder -zeichen. Trim wäre gut.
Warum setzt Du bei der Inputbox ein Leerzeichen davor?
Schreib bitte mal einen Beispielpfad auf.

mfg

Kjeld

Stony · 19. April 2006

Hallo,

also hier ein BspPfad:

Davon ausgegangen, dass directoryName = "ohne blank"

Code

D:\ohne blank\notes.ini

Code

pathName = ""& Inputbox ( "Please type in the memory path for the notes.ini or use default" , "Notes.ini memory path" , "D:\"&directoryName)&"\notes.ini"Mkdir "D:\"&directoryName

So wäre der Pfad ja richtig, wenn das Leerzeichen nicht wäre:

Code

D:\ mit blank\notes.ini

Gruß Jan

leth · 19. April 2006

hi, versuch mal folgende funktion:

Code

Public Function createFolder(Folder As String) As Boolean
	Dim Success As Boolean	
	Dim Parts As Variant
	Dim curPath As String
	Dim Index As Integer

	On Error Goto Catch
Try:

	Parts = Fulltrim(Split(Folder, "\"))
	curPath = Trim(Parts(0))

	If Ubound(parts) < 1 Then Goto Finally

	For index = 1 To Ubound(Parts)
		curPath = curPath + "\" + Trim(Parts(index))
		If Dir(curPath, 16) = "" Then
			Mkdir curPath
		End If
	Next
	Success = True
Finally:
	CreateFolder = Success
	Exit Function
Catch:
	Success = False
	Resume Finally
End Function

Alles anzeigen

sollte eigentlich dein Problem mit den leerzeichen beheben.

gruß leth

dnotes · 19. April 2006

Wofuer dient eigentlich die Zuweisung der Variable pathName??

gossifu · 19. April 2006

Achja, das lustige 'Dir$', ich sollte mal mit (m)einem Optiker sprechen.

Kjeld

Stony · 19. April 2006

Hallo!

Ich hab den Fehler gefunden. Die Leerzeichen macht er beim Füllen der Variable directoryName.

Code

directoryName = uidoc.FieldGetText ("headingName")

Das Feld headingName beinhaltet am Anfang und am Ende einen Blank.

ok. Dann muss ich mir jetzt den Ordnernamen aus etwas anderem zusammenstückeln.

Aber vielen Dank!

Gruß Jan

dnotes · 19. April 2006

Entweder woanders her oder aber:
directoryName = trim(uidoc.FieldGetText ("headingName"))

Stony · 19. April 2006

Hallo!

Vielen Dank! Habe jetzt deinen Vorschlag mit dem "Trim" verwendet, hat mir besser gefallen.

Wie kann ich denn mit Mkdir Unterordner anlegen?

Irgendwie geht es nur so:

Code

Mkdir "D:\Test"

Es wäre nicht schlecht, wenn das auch funzen würde:

Code

Mkdir "D:\Test\123"

Ich bekomme hier die Fehlermeldung "Path not found"

Gruß Jan

dnotes · 19. April 2006

Das haengt wohl damit zusammen, dass es das Verzeichnis "D:\Test" noch nicht gibt. Ergo kann in diesem verzeichnis auch kein Unterverzeichnis erstellt werden.
Also erst das obere Verzeichnis erstellen...dann das untere.

leth · 19. April 2006

Zitat
Stony schrieb:

Es wäre nicht schlecht, wenn das auch funzen würde:
Code
Mkdir "D:\Test\123"
Ich bekomme hier die Fehlermeldung "Path not found"

wie gesagt versuch mal die funktion, die ich weiter oben gepostet hab. habe da deine leerzeichen berücksichtigt sowie das erstellen von unterordnern

Stony · 19. April 2006

Hallo,

jetzt wirds kompliziert.

in dieser Zeile

Code

pathName = ""& Inputbox ( "Please type in the memory path for the notes.ini or use default" , "Notes.ini memory path" , directoryName)

kann der User den Default Pfad übernehmen, oder einen anderen angeben.

Der Default ist immer "D:\blabla".

Aber wie funktioniert das denn, wenn der User "D:\bla\bla\bla" eingibt?

Wie kann man das mit Mkdir lösen?

Gruß Jan

Stony · 19. April 2006

Hallo,

Zitat

wie gesagt versuch mal die funktion, die ich weiter oben gepostet hab. habe da deine leerzeichen berücksichtigt sowie das erstellen von unterordnern

Habe jetzt deine Funktion verwendet. Funktioniert einwandfrei, vielen Dank!

Mein Problem ist nur, dass ich den Code nicht so ganz verstehe. :roll:

Kannst du mir den Code nochmal mit ein paar Kommentaren posten?

Gruß Jan

leth · 19. April 2006

das mache ich doch, ist auch noch eine änderung drinne:

Code

Public Function createFolder(Folder As String) As Boolean
	Dim Success As Boolean	
	Dim Parts As Variant
	Dim curPath As String
	Dim Index As Integer

	On Error Goto Catch


Try:


	'Einzelne Teile des Pfades zerteilen
	' z.B. "C:\Temp\test" -> Array mit "C:", "Temp", "Test"
	'Fulltrim -> Falls irgendwo ein leerer String ist, z.B. wenn am Ende "\"

	Parts = Fulltrim(Split(Folder, "\"))
	curPath = Trim(Parts(0))


	'Falls nur Laufwerk, dann Ende
	If Ubound(parts) < 1 Then Goto Catch


	For index = 1 To Ubound(Parts)
		'Nach und nach den Pfad wieder aufbauen, und jede Ebene auf
		'existenz prüfen und ggf. erstellen

		curPath = curPath + "\" + Trim(Parts(index))
		If Dir(curPath, 16) = "" Then
			Mkdir curPath
		End If
	Next
	Success = True

Finally:
	CreateFolder = Success
	Exit Function
Catch:
	Success = False
	Resume Finally
End Function

Alles anzeigen

Hoffe das ist recht verständlich, falls nicht einfach melden

Stony · 19. April 2006

Hallo,

vielen dank! Jetzt verstehe ich wenigstens ein bisschen was in dem Code passiert

Gruß Jan

Ordner im Filesystem anlegen

Teilen

Benutzer online in diesem Thema