TRANSFORMAR VB.NET EM VB6 AJUDA

GABRIELROD 06/08/2010 16:33:51
#349656

Fala galera, estou precisando de uma ajudinha para deixar esse arquivo aqui usual para VB6, se puderem me ajudem!

Imports System
Imports System.IO
Imports System.Text
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Collections.Generic


Public Class ClsLog

Shared Sub logWrite(ByVal logType As String, ByVal msgType As String, ByVal message As String)
[ô]Definição do logType
[ô]app := Aplicação
[ô]sql := Transaction SQL
[ô]txt := Mirror text File

[ô]Definição do msgType
[ô]INFO := Log de Informacao
[ô]ERRO := Log de Erro
[ô]WARN := Log de Alerta

[ô]Definir variaveis responsáveis em recuperar informações de configuração
[ô][ô]Dim MyConfigValue As NameValueCollection = ConfigurationSettings.AppSettings

[ô]Dim strDirLog As String = clsGlobal.LOGDir
Dim strDirLog As String = [Ô]C:\Log\[Ô]


[ô]Verificar se o diretório de Log existe
If Not Directory.Exists(strDirLog) Then

[ô]Cria diretório onde será alocado o arquivo de Log
Directory.CreateDirectory(strDirLog)

End If


[ô]Definir variaveis a serem utilizadas na função
Dim intFileSequence As Int16 = 1
Dim dblFileLenght As Double = 0.0
Dim dblFileLenghtMax As Double = 1000
Dim strFileName As String = logType + [Ô]_[Ô] + String.Format([Ô]{0:ddMMyyyy}[Ô], DateTime.Now)
Dim MyDirInfo As DirectoryInfo = New DirectoryInfo(strDirLog)
Dim MyFileList() As FileInfo = MyDirInfo.GetFiles(strFileName + [Ô]*[Ô])

[ô]Verificar qual será a nova sequencia a ser utilizada na nomeação do arquivo de Log
For Each MyFile As FileInfo In MyFileList

[ô]Recuperar Sequencia do arquivo
intFileSequence = Int16.Parse(MyFile.Name.Replace(MyFile.Extension, [Ô][Ô]).Substring(13, 3))
dblFileLenght = CDbl(MyFile.Length / 1024)

Next

[ô]Verifica se o tamanho do arquivo excede o máximo estipulado
If (dblFileLenght > (dblFileLenghtMax - 1)) Then

intFileSequence = intFileSequence + 1

End If

[ô]Definir o nome completo do arquivo a ser trabalhado
Dim strFileNameFull As String = strFileName + [Ô]_[Ô] + String.Format([Ô]{0:000}[Ô], intFileSequence) + [Ô].log[Ô]
Dim MySW As StreamWriter

[ô]Verificar se o arquivo de Log existe
If (File.Exists(MyDirInfo.FullName & strFileNameFull)) Then

[ô] Instanciar objeto, já existente, responsável pela inclusão do texto
MySW = File.AppendText(MyDirInfo.FullName & strFileNameFull)

Else

[ô] Instanciar objeto, não existente, responsável pela inclusão do texto
MySW = File.CreateText(MyDirInfo.FullName & strFileNameFull)

End If

[ô]Escrever mensagem no arquivo de Log
message = String.Format([Ô]{0:dd/MM/yyyy HH:mm:ss}[Ô], DateTime.Now) + [Ô] {[Ô] + msgType + [Ô]} [Ô] + message
MySW.WriteLine(message)

[ô]Finalizar instancia do objeto StreamWriter
MySW.Close()
MySW.Dispose()
MySW = Nothing

End Sub

End Class