[AccessD] CmdRunApp Help

Gowey Mike W Mike.W.Gowey at doc.state.or.us
Thu Dec 11 10:06:16 CST 2003


John,

Thanks very much for your help, this works absolutely wonderful and does
exactly what I needed it to do.  So slick.....

You're the man....thanks again,


Mike Gowey, MCSA, A+
Team Leader - SRCI
Information Systems & Services Division


-----Original Message-----
From: John W. Colby [mailto:jcolby at colbyconsulting.com] 
Sent: Tuesday, December 09, 2003 1:11 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] CmdRunApp Help


why don't you just do it from within Access?  If the filesystem object
is accessible, reference it.  Then:

Function CopyFile(strFileName As String, strDestDir As String) As
Boolean On Error GoTo Err_CopyFile Dim fs As FileSystemObject
    Set fs = CreateObject("Scripting.FileSystemObject")
    'On Error Resume Next
    'if the file doesn't exist, ignore the error
    fs.CopyFile strFileName, strDestDir
    CopyFile = True
Exit_CopyFile:
On Error Resume Next
    Set fs = Nothing
Exit Function
Err_CopyFile:
        MsgBox Err.Description, , "Error in Sub basUtils.CopyFile"
        Resume Exit_CopyFile
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Sub DeleteFile(strFileName As String)
On Error GoTo Err_DeleteFile
Dim fs As FileSystemObject
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    'if the file doesn't exist, ignore the error
    fs.DeleteFile strFileName
Exit_DeleteFile:
On Error Resume Next
    Set fs = Nothing
Exit Sub
Err_DeleteFile:
    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        MsgBox Err.Description, , "Error in Sub basUtils.DeleteFile"
        Resume Exit_DeleteFile
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Sub RenameFile(strFileName As String, strNewName As String)
On Error GoTo Err_RenameFile
    Dim fs As FileSystemObject
    Dim f As File
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(strFileName)
    f.Name = strNewName
Exit_RenameFile:
On Error Resume Next
    Set f = Nothing
    Set fs = Nothing
Exit Sub
Err_RenameFile:
    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        MsgBox Err.Description, , "Error in Sub basUtils.RenameFile"
        Resume Exit_RenameFile
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
'.Comments  :
'.Parameters:
'.Created by: John W. Colby
'.Created   : 12/5/2002 9:29:43 PM
Sub CreateDir(strPath As String)
On Error GoTo Err_CreateDir
Dim fs As FileSystemObject
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    'if the file doesn't exist, ignore the error
    fs.CreateFolder strPath
Exit_CreateDir:
On Error Resume Next
    Set fs = Nothing
Exit Sub
Err_CreateDir:
    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        MsgBox Err.Description, , "Error in Sub basUtils.CreateDir"
        Resume Exit_CreateDir
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Sub

John W. Colby
www.ColbyConsulting.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gowey Mike W
Sent: Tuesday, December 09, 2003 3:03 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] CmdRunApp Help



Hello all,

I have within my database a call to run a batch program that takes a
file that resides on one of our Network servers and copies it to our
local server and renames it to a text file.  I than take that text file
and import it into a table.

My question is, is there a way to call the batch program and have it run
in the background or run minimized.  Right now it works but the dos
window comes up over the top of the database and does the copy and
rename in other words runs in the foreground.

I have a progress meter that comes up that I would like the user to see
rather than the ugly little black dos window.

Thanks in advance for any advice.


Mike Gowey, MCSA, A+
Team Leader - SRCI
Information Systems & Services Division



_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


More information about the AccessD mailing list