Public Shared Sub WriteDBStatus (ByVal strString As String)
Try
Dim FILE_NAME As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase) + "\DBStatus"
Dim sr As IO.StreamWriter = Nothing
If Not IO.File.Exists(FILE_NAME) Then
sr = IO.File.CreateText(FILE_NAME)
sr.WriteLine(strString)
End If
sr.Close()
Catch ex As Exception
End Try
End Sub