call shell

  • Thread starter Thread starter Bre-x
  • Start date Start date
B

Bre-x

Hi,
I have a MS Access 2000 db that uses the command
call shell to launch a program that will clean up a text file.

My question is: is there a way to use the sell without it showing that blank
screen?

Function ajo()
Dim TShell As String, tofeo As String, InFile As String, OutFile As String,
Ln As Integer
InFile = Application.CurrentProject.Path & "\feo.txt"
OutFile = Application.CurrentProject.Path & "\feodone.txt"
Ln = 12
tofeo = InFile & " " & OutFile & " " & Ln
TP = Application.CurrentProject.Path & "\PROG1.EXE"
TShell = TP & " " & tofeo
Call Shell(TShell, 1)
End Function

Thank you All,

Bre-x
 
Have you tried the other options for the second argument?

vbHide = 0
vbMinimizedNoFocus = 6

One of those looks like it might be what you want. You
were using the vbNormalFocus option.


Chris Nebinger
 
Thanks Chris. It works

:)

Bre-x


Chris Nebinger said:
Have you tried the other options for the second argument?

vbHide = 0
vbMinimizedNoFocus = 6

One of those looks like it might be what you want. You
were using the vbNormalFocus option.


Chris Nebinger
Click to expand...
 
Back
Top