Public Overloads Shared Function FN_ExecuteCmd(ByVal strFileName As String) As String

Dim myProcess As System.Diagnostics.Process = Nothing

Try

myProcess = New System.Diagnostics.Process

myProcess.StartInfo.FileName = strFileName
myProcess.StartInfo.CreateNoWindow = True
myProcess.Start()

myProcess.Close() myProcess.Dispose() Return "1" Catch ex As Exception myProcess.Close() myProcess.Dispose() Throw ex End Try End Function