[dba-VB] OT:SysCmd(acSysCmdAccessDir)

Mark
SysCmd(acSysCmdAccessDir) simply returns the folder where MSAccess.exe is
installed
Richard

> -----Original Message-----
> From:	Mark L. Breen [SMTP:subs at solution-providers.ie]
> Sent:	01 July 2003 09:17
> To:	dba-vb at databaseadvisors.com
> Subject:	Re: [dba-VB] OT:SysCmd(acSysCmdAccessDir) 
> 
> Hello Richard,
> 
> I do not know what SysCmd(acSysCmdAccessDir does, but the following may
> help,
> 
> Also, are you aware of the app.path command ?
> 
> HTH,
> 
> Mark Breen
> Ireland
> 
> 
>     strFile = Right(Dir$(gstrDirectory & "\*.txt"), 57) ' 57 is the length
> of the file name
>         Do Until Len(strFile) = 0
>               ' Call a stored procedure to insert the filename and client
> name into the table
>               strSQL = "sp_AddPIDFileName '" & gstrDirectory & "', '" &
> strFile & "' "
> 
>               'We will need this recordset to get the data from the
> database
>               Dim rstFileName As New ADODB.Recordset
> 
>               'now set up the recordset
>               rstFileName.CursorLocation = adUseClient
>               rstFileName.CursorType = adOpenStatic
>               rstFileName.LockType = adLockBatchOptimistic
>               rstFileName.Open strSQL, gccnn, , , adCmdText
>             'Get the next file
>             strFile = Dir$
>         Loop 'Len(strFile) > 0
> 
> ----- Original Message ----- 
> From: "Griffiths, Richard" <R.Griffiths at bury.gov.uk>
> To: <dba-VB at databaseadvisors.com>; <AccessD at databaseadvisors.com>
> Sent: Tuesday, July 01, 2003 8:59 AM
> Subject: [dba-VB] OT:SysCmd(acSysCmdAccessDir)
> 
> 
> > Hi
> >
> > Does anyone have the equivalent code snipet to get the same
> functionality
> as
> > SysCmd(acSysCmdAccessDir)  from within a VB app
> >
> > Thanks
> >
> > Richard
> > Manchester, UK
> >
> > _______________________________________________
> > dba-VB mailing list
> > dba-VB at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/dba-vb
> > http://www.databaseadvisors.com
> >
> >
> 
> _______________________________________________
> dba-VB mailing list
> dba-VB at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/dba-vb
> http://www.databaseadvisors.com
>