[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
>
>