Re: MI-L MapBasic- Create directory

[Robert Crossley]

hi you could try the api function below.   note reference for api 
functions.  sorry about typing, night time shift with baby.... one hand, 
dark.

r

Type SECURITY_ATTRIBUTES
   nLength As Long
   lpSecurityDescriptor As Long
   bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias 
"CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As 
SECURITY_ATTRIBUTES) As Long



Sub Command1_Click()
   'KPD-Team 1998
   'URL: http://www.allapi.net/
   'E-Mail: [EMAIL PROTECTED]
   Dim Security As SECURITY_ATTRIBUTES
   'Create a directory
   Ret& = CreateDirectory("C:\Directory", Security)
   'If CreateDirectory returns 0, the function has failed
   If Ret& = 0 Then MsgBox "Error : Couldn't create directory !", 
vbCritical + vbOKOnly
End Sub

On Thu, 7 Aug 2003 13:28:04 -0600, Steve McClellan 
<[EMAIL PROTECTED]> wrote:

Hello All,
Is anyone aware of a way to create a user dialog which would allow the 
user
to specify and create a new folder/directory in MapBasic? Thanks in 
advance
for any help.

Thanks, Steve
[][][][][][][][][][][][][][][][][][]
Steve McClellan
AirPhotoUSA
PO Box 34
Midvale Idaho, 83645
[EMAIL PROTECTED]
[][][][][][][][][][][][][][][][][][]
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 7939



--

Robert Crossley

Agtrix P/L
9 Short St
New Brighton 2483
Far Southern Queensland
AUSTRALIA
153.549004 E 28.517344 S

P: 02 6680 1309
F: New Connection
M: 0419 718 642
E: [EMAIL PROTECTED]
W: www.agtrix.com
W: www.wotzhere.com
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 7942