18 lines
396 B
Text
18 lines
396 B
Text
|
#ifdef __FB_WIN32__
|
||
|
|
Dim pathname As String = "Ring\docs"
|
||
|
|
#else
|
||
|
|
Dim pathname As String = "Ring/docs"
|
||
|
|
#endif
|
||
|
|
|
||
|
|
Dim As String mkpathname = "mkdir " & pathname
|
||
|
|
Dim result As Long = Shell (mkpathname)
|
||
|
|
|
||
|
|
If result = 0 Then
|
||
|
|
Print "Created the directory..."
|
||
|
|
Chdir(pathname)
|
||
|
|
Print Curdir
|
||
|
|
Else
|
||
|
|
Print "error: unable to create folder " & pathname & " in the current path."
|
||
|
|
End If
|
||
|
|
Sleep
|