thanks, Here is the entire code and I might add it has worked for over two years with no problem. Now I did formate this workstation that uses it but before no issues. i have checked Microsoft Scripting Runtime in References.
Dim stAppName As String
stAppName = """C:\Program Files\Common Files\Microsoft Shared\MSPaper\MSPSCAN.EXE"" Scan"
CreateObject("WScript.Shell").Run stAppName, 1, True
temp = getLastTIF("\\192.168.0.101\_file cabnet\temp\")
FilePath = "\\192.168.0.101\_file cabnet\" & Right(temp, Len(temp) - InStrRev(temp, "\"))
'Move File
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile temp, "\\192.168.0.101\_file cabnet\