1.  I had a relative path for the import.exe file and ImportDefinition.  Absolute paths are a must.

2.  Wscript.Echo - I was trying to debug and view the command about to be executed.  When I double click, a pop-up box appears.  From command line, no pop-up box visible, but the program is still waiting for input.  I commented out the debugging code.

3.  Way too many open windows.

Am I violating anything by posting my code?

Option Explicit
On Error Resume Next

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const ImportDefinition  = "D:\ScheduledTasks\WebAppImport\Final.imp" 'Import Definition Created in Point
Const ImportLocation = "J:\PROSPECT" ' Prospect Area
Const ImportFile = "D:\ScheduledTasks\WebAppImport\ImportCode\Import.exe" ' ImportCode contains all dependent DLLs

Dim oFiles, FileName, return
Dim WshShell, WSHNetwork
Dim fso, f, fc, fsoWriteFile, ImportCommand

Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHNetwork = WScript.CreateObject("WScript.Network")

WSHNetwork.RemoveNetworkDrive "J:", True, True
WSHNetwork.RemoveNetworkDrive "K:", True, True

WSHNetwork.MapNetworkDrive "J:", "\\server\destinationShare"
WSHNetwork.MapNetworkDrive "K:", "\\server\SourceShare"

set f = fso.GetFolder("K:\")
set fc = f.Files

' Open Log file for appending results
set fsoWriteFile = fso.OpenTextFile("k:\WebImportLog.log",ForAppending, true)

'Parse files in target directory
for each FileName in fc
 if instr(3,Filename, "app",1) then 'app prefix will appear on all web originated files
   ImportCommand = ImportFile & " " & FileName & " " &_
      ImportDefinition & " " & ImportLocation
   fsoWriteFile.WriteLine "======================================================" _&
         "     =================================="
   fsoWriteFile.WriteLine ( "-- " & FileName & " == Read " & Date & " @ " & Time & " ---" )
   fsoWriteFile.WriteLine ImportCommand
   
   'The Beef   
   return = WshShell.Run(ImportCommand,1,true)
   
   fsoWriteFile.WriteLine( "---- Processed with Exit Code = " & return)
   fsoWriteFile.WriteLine ("---- " & FileName & " Moved to Archive Folder")
   fso.MoveFile FileName, "K:\Archive\"
   fsoWriteFile.WriteLine "=======================================================" _&
               "================================="
   fsoWriteFile.WriteLine
 else
 end if
Next

'Remove Network Drives
WSHNetwork.RemoveNetworkDrive "J:", True, True
WSHNetwork.RemoveNetworkDrive "K:", True, True

'Cleanup
fsoWriteFile.Close
Set WSHNetwork   = nothing
Set fsoWriteFile  = nothing
Set fso    = nothing
========================