[dba-VB] OT:SysCmd(acSysCmdAccessDir)

Hello Richard,

In that case, App.Path is what you need.

Did it work for you?

Mark

----- Original Message ----- 
From: "Griffiths, Richard" <R.Griffiths at bury.gov.uk>
To: "'Mark L. Breen'" <subs at solution-providers.ie>;
<dba-vb at databaseadvisors.com>
Sent: Tuesday, July 01, 2003 9:22 AM
Subject: RE: [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
> >
>
> _______________________________________________
> dba-VB mailing list
> dba-VB at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/dba-vb
> http://www.databaseadvisors.com
>
>