Dúvida Sobre Como Criar Um Arquivo Com Nome + Data

[Sky_Damage]

Estou usando a seguinte função para criar e depois escrever num arquivo .bat

Set objSaidabat = objSistArqbat.OpenTextFile( "teste.bat", numForWrite, True )

mas aí o arquivo gerado seria chamado teste.bat, e eu quero fazer ele se chamar data_atual+teste.bat (23/08/05-teste.bat), pois este script é rodado todos os dias, e assim o arquivo é sempre reescrito, não quero escrever o próximo no mesmo abaixo dos dados existentes, quero que para cada dia tenha um arquivo diferente. Então a melhor forma que achei foi colocar a data no início do nome, mas já tentei várias coisas e não consegui, quem pode me ajudar?

Obs.: é em vbs.

[Bicicleta]

acho q isso resolve:

arquivo = Format(Date, "dd-mm-yyyy") & "-teste.bat"

Set objSaidabat = objSistArqbat.OpenTextFile(arquivo, numForWrite, True )

[Sky_Damage]

acho q isso resolve:

arquivo = Format(Date, "dd-mm-yyyy") & "-teste.bat"

Set objSaidabat = objSistArqbat.OpenTextFile(arquivo, numForWrite, True )

O problema é que ele não aceita criar um nome só com o parametro 'arquivo', tem de estar entre aspas duplas, já tentei isto.

arquivo = Format(Date, "dd-mm-yyyy") & "-teste.bat"

Set objSaidabat = objSistArqbat.OpenTextFile(arquivo, numForWrite, True )

Alguém sabe outro modo?

[Bicicleta]

não aceita porque mano???

Será q não tá pedindo pra você declara o tipo de variável?

Tenta declarar:

Dim arquivo As String

[]s

[Guest Guest]

Olha o código aí, se retirar "as string" do Dim datahoje e retirar "datahoje &" do OpenTextFile ele roda numa boa, mas vai sempre sobreescrever o arquivo teste.bat, mas funciona, mas quero manter um histórico delas:

Option Explicit

Dim objSistArq, objSistArqbat, objSaidabat

Set objSistArq = CreateObject("Scripting.FileSystemObject")

Set objSistArqbat = CreateObject( "Scripting.FileSystemobject" )

Dim arquivo, numfinal

Dim numForWrite: numForWrite = 2

Dim datahoje as string

datahoje = date

numfinal = 0

Set objSaidabat = objSistArqbat.OpenTextFile( datahoje & "-teste.bat", numForWrite, True )

Set arquivo = objSistArq.GetFile("C:\diretorio")

numfinal = arquivo.size

objSaidabat.Write "@echo off" & Chr(13) & Chr(10)

objSaidabat.Write "@echo" & " "

objSaidabat.Write numfinal

objSaidabat.Close

Pode me dar um help Bicicleta ou qualquer outro que souber como resolvo?

Obs.: para pegar os bytes do tamanho, tem que colocar o diretório no local C:\diretorio. Valeu.

[Bicicleta]

então cara provavelmente tá dando erro, porque a variavel datahoje retorna "25/8/2005" por exemplo não é? E o caracter "/" não é permitido em nome de arquivos... Então faça como falei...

substitua:

datahoje = date

por:

datahoje = Format(date, "dd-mm-yyyy")

[]s!!!

[Sky_Damage]

Não dá, já peguei uma variavel Dim nome, atribiu meu nome (nome = "rodrigo") e coloquei assim, antes do "arquivo.bat":

Set objSaidabat = objSistArqbat.OpenTextFile( nome & "-teste.bat", numForWrite, True )

mas ele dá erro, não aceita nada fora das aspas duplas.

Tb já tentei como me falou usando o format, ele formata certo, mas na hora do comando acima dá o mesmo erro.