Domino 9 und frühere Versionen > ND6: Entwicklung

Neues Verzeichnis auf den FileSystem anlegen

<< < (2/4) > >>

Johnson:
Hmpf. Pinguine!!!  ;)

Ich hab das auch schon, da komm ich aber grad nicht dran, da ich als Testuser unterwegs bin.

Mit ein bisschen Kreativität und logischem Verständnis kannst du das mit Sichterheit umschreiben.  ;)

Johnson:
Eat this:  ;)

--- Code: ---Function CreateFolder(str_path As String) As Boolean
Dim str_separator As String
Dim s As NotesSession
Dim str_tmppath As String
Dim int_pos As Integer
Dim int_begin As Integer
CreateFolder = False
Set s = New NotesSession
Select Case s.Platform
Case "Windows/16", "Windows/32": str_separator = "\"
Case Else:  str_separator = "/"
End Select
int_begin = 1
str_tmppath = str_path
Do
int_pos = Instr(int_begin, str_path, str_separator)
If (int_pos = 0) Then
str_tmppath = str_path
Else
str_tmppath = Left$(str_path, int_pos - 1)
End If
If (Len(Dir$(str_tmppath, ATTR_DIRECTORY)) = 0) Then
On Error Resume Next
Mkdir str_tmppath
If Err > 0 Then
Err = 0
Exit Function
End If
End If
int_begin = int_pos + 1
Loop While(int_pos > 0)
CreateFolder = True
End Function

--- Ende Code ---

m3:
 ;D

koehlerbv:
Das geht auch "pure LS" ohne Unterscheidung nach Plattformen. Think! (wer hat das nur schon mal gesagt?  ;D)

Bernhard

EDIT: Blödsinn, was ich da geschrieben habe ...

Johnson:
Kapitulation!

Ich hoffen nicht so ´n Ulk wie Datei im Zielordner erstellen und dann wieder löschen nur daß das Verzeichnis da ist!!!
Ich muss doch wissen was als Trenner verwendet werden soll.
Oder gibts ´ne Property in LS.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete