Or in MB with the win api to create a directory::
Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA"
(ByVal lpPathName As String, ByVal lpSecurityAttributes As Integer) As
Integer
...
Dim blob as integer
blob = CreateDirectory("C:\abcd_test", 0)
Jakob
{
Lanstorp Util
http://www.lanstorp.com
}
----- Original Message -----
From: "Robert Crossley" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: "MapInfo List" <[EMAIL PROTECTED]>
Sent: Thursday, August 07, 2003 10:01 PM
Subject: Re: MI-L MapBasic- Create directory
> 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
>
>
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 7946
