Guten Tag,
ich bin neu hier.
Ich habe ein VB.Net geschrieben, das sich mit einer Datenbank verbindet und dort Daten vergleicht mit einem Verzeichnis. Die fehlenden Daten im Verzeichnis werden anschließend in einem Logfile ausgegeben. Ich möchte gerne dass in der 1. Zeile des Logs das aktuelle Datum inkl. Uhrzeit steht und an der letzten Zeile ebenfalls, wenn möglich auch wie lange der Vorgang denn gedauert hat.
Visual Basic Quellcode
ich bin neu hier.
Ich habe ein VB.Net geschrieben, das sich mit einer Datenbank verbindet und dort Daten vergleicht mit einem Verzeichnis. Die fehlenden Daten im Verzeichnis werden anschließend in einem Logfile ausgegeben. Ich möchte gerne dass in der 1. Zeile des Logs das aktuelle Datum inkl. Uhrzeit steht und an der letzten Zeile ebenfalls, wenn möglich auch wie lange der Vorgang denn gedauert hat.
Visual Basic Quellcode
VB.NET-Quellcode
- Sub Main()
- Dim sSQL As String
- Dim objConn As New OleDb.OleDbConnection
- Dim objDataAdapter As OleDb.OleDbDataAdapter
- Dim objDS As New DataSet("WerbetraegerSeitenBilder")
- Dim objTable As DataTable
- objTable = objDS.Tables("WerbetraegerSeitenBilder")
- Dim i As Integer
- Dim objRow As DataRow
- Dim sFileNameWithPath As String
- Dim strAppIniFile As String
- Dim Appini As IniReader
- Dim sSubstring As String
- Dim sUnterVerzeichnis As String
- strAppIniFile = My.Application.Info.DirectoryPath + "" + My.Application.Info.AssemblyName + ".ini"
- Appini = New IniReader(strAppIniFile)
- sSQL = Appini.ReadString("DATABASE", "Filter", "") '
- Try
- objConn.ConnectionString = Appini.ReadString("DATABASE", "DBConnectionSTATIV", "")
- objConn.Open()
- Catch myException As System.Exception
- Console.WriteLine(myException.Message)
- End Try
- If objConn.State = ConnectionState.Open Then
- Try
- objDataAdapter = New OleDb.OleDbDataAdapter(sSQL, objConn)
- objDataAdapter.Fill(objDS, "WerbetraegerSeitenBilder")
- objTable = objDS.Tables("WerbetraegerSeitenBilder")
- Console.WriteLine("{0} Rows", objDS.Tables("WerbetraegerSeitenBilder").Rows.Count)
- For i = 0 To objTable.Rows.Count - 1
- objRow = objTable.Rows(i)
- sSubstring = objRow.Item("IDWerbetraegerSeitenBilder").ToString
- sUnterVerzeichnis = sSubstring.Substring(7, 1)
- sFileNameWithPath = "\\XXX" & sUnterVerzeichnis & "" & objRow.Item("YYY").ToString & ".jpg"
- Console.WriteLine(If(File.Exists(sFileNameWithPath), "File exists.", "File does not exist."))
- My.Computer.FileSystem.WriteAllText("XXX\Log.txt", sFileNameWithPath & vbCrLf, True)
- Console.WriteLine(sFileNameWithPath)
- Next
- objConn.Close()
- Catch myException As System.Exception
- Console.WriteLine(myException.Message)
- End Try
- Console.ReadLine()
- End If
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „theo.d“ ()