Gravar Arquivo TXT


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Gravar Arquivo TXT

RDM.TECNOLOGIA

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 20/08/2008 16:16 hs

Pessoal me desculpem postar sobre .NET aqui, mas ninguem responde no forum .NET e eu estou precisando criar arquivo txt no C: da maquina, estou conseguindo, porem preciso criar este arquivo com a data do dia em q foi criado, estou utilizando a rotina abaixo para criar o arquivo:

Dim fs As FileStream

fs = New FileStream("c:Arquivo.txt", FileMode.CreateNew)

Porem, eu preciso gravar o arquivo com o nome Arquivo 20082008, Arquivo 21082008, e assim sucessivamente, mas não estou conseguindo concatenar o nome do arquivo com a data atual.

Alexandre Patos

PATOS DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 20/08/2008 16:31 hs

Dim fs As FileStream

fs = New FileStream("c:Arquivo_" & format(date,"ddmmyyyy) & ".txt", FileMode.CreateNew)

Alexandre Patos

PATOS DE MINAS
MG - BRASIL

Postada em 20/08/2008 16:34 hs

ficou faltando umas aspas ai vou acertar ai em baixo ok

Dim fs As FileStream

fs = New FileStream("c:Arquivo_" & format(date,"ddmmyyyy") & ".txt", FileMode.CreateNew)

prontinho

Alexandre Patos

PATOS DE MINAS
MG - BRASIL

Postada em 20/08/2008 16:35 hs

se voce quiser o nome do arquivo so com a data é so fazer assim

Dim fs As FileStream

fs = New FileStream(format(date,"ddmmyyyy") & ".txt", FileMode.CreateNew)

RDM.TECNOLOGIA

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 21/08/2008 11:49 hs

Alexandre sua dica me ajudou muito, é isto mesmo que eu queria, porem eu dei uma modificada e como vc passou deu erro na formatação, mas eu encontrei uma saida que ficou como abaixo:

If IO.File.Exists(te.Text & "MOVIMENT" & (Date.Today) & ".txt") Then

MsgBox("O Arquivo MOVIMENT" & (Date.Today) & " Já Existe, Entre em contato com o Depto de

TI.", MsgBoxStyle.Critical)

Me.Close()

Else

Try

Dim fs As FileStream

fs = New FileStream(te.Text & "MOVIMENT" & (Date.Today) & ".txt", FileMode.CreateNew)

fs.Close()

Catch ex As Exception

MsgBox("Erro: " & "(" & ex.Message & ")" & " O Arquivo esta sendo criado com o nome MOVIMENT + data Atual," _

& " data que deverá estar no formato dd-mm-aaaa, porém foi detectado que a data em seu computador esta" _

& " no formato" & " " & Date.Today & ", " & "por favor altere o formato em Configurações Regionais e tente novamente.", MsgBoxStyle.Critical)

Me.Close()

End Try

End If

Página(s): 1/1