[AccessD] CmdRunApp Help

HI John
What is the file to reference to get the FSO working?

----- Original Message ----- 
From: "John W. Colby" <jcolby at colbyconsulting.com>
To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com>
Sent: Wednesday, December 10, 2003 7:11 AM
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