Criar Rotina

[Guest Wellington]

Tenho que "criar" um arquivo "copia.bat" e ao mesmo tempo jogar ele no c: ( raiz ) .

Tudo isso feito apenas em um botão , preciso saber como faço essa rotina .

alguém pode me ajudar ?

Grato

[Duffy]

Cara faça assim

dim F as integer

F = FreeFile

Open "c:/copia.bat" for output as #F

Print #F, "conteudo do arquivo"

Close #F

FAlowzzz!!!

[PiGmEu]

Edit: e isso mesmo o q o brother colocou acima.. eu postei no mesmo instante q ele ehehhe

Open "c:\copiar.bat" For Output As #1
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
      Print #1, "ALALALALLA"
Close #1

isso ele vai gerar um copiar.bat no seu c:\ com os LALALALLA

[]´s

veja se é isso que você precisa

Editado Julho 8, 2004 por PiGmEu

[Guest Wellington]

VALEI GUSTAVO , ESSE JEITO ESTÁ CERTO E TAMBÉM ACHEI DESSE JEITO .

Private Sub Command1_Click()

NroFile = FreeFile

Open "c:\copia.bat" For Append As NroFile

Write #NroFile, "echo off" & "\r\n"

Write #NroFile, "Cls" & "\r\n"

Write #NroFile, "mov %1 %2 /Y" & "\r\n"

Write #NroFile, "Cls" & "\r\n"

End Sub

OS DOIS ESTÃO CERTOS, VALEU AJUDA CAMARADA.