[dba-VB] OT:SysCmd(acSysCmdAccessDir)

Hi

app.path will return the path to the MyApp.exe folder not MS Access.exe

Richard

> -----Original Message-----
> From:	Mark L. Breen [SMTP:subs at solution-providers.ie]
> Sent:	01 July 2003 14:16
> To:	dba-vb at databaseadvisors.com
> Subject:	Re: [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
> >
> >
> 
> _______________________________________________
> dba-VB mailing list
> dba-VB at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/dba-vb
> http://www.databaseadvisors.com
>