Lotus Domino script snippet create Windows Folder
This piece of LotusScript will create a folder on Windows PC where the Notes client is running on
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
Function WinCreateFolder(psFolder As String) As Boolean Dim lsDrive As String Dim lsTemp As String Dim liPos As Integer Dim liLastPos As Integer On Error GoTo errorhandler If Mid$(psFolder,2,1)<>":" Then MsgBox ("Please specify a drive for the Dump Path") Exit Function End If lsDrive=Left$(psFolder,2) lsTemp=lsDrive+"\" liLastPos=4 liPos=InStr(4,psFolder,"\") Do Until liPos=0 lsTemp=lsTemp+Mid$(psFolder,liLastPos,(liPos-liLastPos)) If Dir$(lsTemp,ATTR_DIRECTORY)="" Then 'it exists but is not a directory MkDir lsTemp End If liLastPos=liPos+1 liPos=InStr(liLastPos,psFolder,"\") lsTemp=lsTemp+"\" Loop lsTemp=lsTemp+Mid$(psFolder,liLastPos) If Dir$(lsTemp,ATTR_DIRECTORY)="" Then MkDir lsTemp End If WinCreateFolder = True Exit Function errorhandler: Resume Next End Function |