Domino 9 und frühere Versionen > ND6: Entwicklung

Neues Verzeichnis auf den FileSystem anlegen

(1/4) > >>

Andysun:
Hallo @all,

gibt es im Lotus Script einen Befehl, um ein Verzeichnis im FileSystem ( Windows ) anzulegen.
Kann mir jemand helfen ?

Beste Grüsse

Andy

m3:
Ja und Ja.






































Linux: mkdir
DOS: mkdir
LotusScript: mkdir (welch Überraschung)

Andysun:
zu einfach,

deinen Tipp kann ich nicht annehmen, ich geh jetzt nach Hause,
Vielen Dank

 ;)

Johnson:
Jedoch musst du sicherstellen, daß das Verzeichniss, indem du den Ordner erstellen willst bereits existiert.

z.B. C:\Temp\Test kann nicht erstellt werden wenn C:\Temp nicht existiert. In diesem Falle musst du erst prüfen, ob das Zielverzeichnis da ist und ggf. erstellen.

Ich mach das immer über das FileSystemObject:


--- Code: ---
Sub CreateFolder(str_path as String)
Dim str_drive As String
Dim str_tmppath As String
On Error ErrNoPlatSupport Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
If Err = ErrNoPlatSupport Then Err = 0
If Not (Isempty(fso)) Then
' type of drive
If Not Left(str_path,2) = "\\" Then
If Not fso.DriveExists(Strleft(str_path,"\") & "\") Then Exit sub
str_drive = Strleft(str_path,"\") & "\"
Else
str_drive = "\\" & Strleft(Strright(str_path,"\\"),"\") & "\"
End If
' create folder
str_tmppath = Strright(str_path,str_drive)
Do Until Instr(str_tmppath,"\") = 0
str_drive = str_drive & Strleft(str_tmppath,"\") & "\"
str_tmppath = Strright(str_path,str_drive)
If Not fso.FolderExists(str_drive) Then Call fso.CreateFolder(str_drive)
Loop
str_drive = str_drive & str_tmppath
If Not fso.FolderExists(str_drive) Then Call fso.CreateFolder(str_drive)
End If
End Sub


--- Ende Code ---

m3:
Über solche Scripts freu ich mich immer, wenn die auf meinem Linux-Server laufen wollen. :(

Navigation

[0] Themen-Index

[#] Nächste Seite