Crear archivo temporal en visual basic

Iniciado por XxTheCochixX, 20 Mayo 2010, 00:09 AM

0 Miembros y 1 Visitante están viendo este tema.

XxTheCochixX

Hola manes ante todo gracias tengo una pequeña consulta estoy haciendo un proyecto en visual basic 6.0 para lo cual necesito su ayuda, lo que deseo es saber si hay un codigo en el cual cuando yo genere mi proyecto.exe al ejecutar mi proyecto se cree un archivo cualquiera sea cual sea la extensión y cuando el proyecto deje de funcionar el archivo creado desaparesca es esto posible gracias de nuevo ojala puedan ayudarme saludos!!

Psyke1

Claro que es posible! :)
Esto que pides es un poco raro, no?¿ :huh:

Código (vb) [Seleccionar]

Dim miArchivo As String

Private Sub Form_Load()
   miArchivo = "c:\caca.txt"
   Open miArchivo For Append As #1
       Print #1, "XxTheCochixX deberia buscar mas..."
   Close #1
   Set Fso = CreateObject("Scripting.FileSystemObject")
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Call Borrar (miArchivo)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Call Borrar (miArchivo)
End Sub

Sub Borrar (miFile As String)
   Fso.deletefile miFile, True
End Sub


Segun lo que has dicho esto es exactamente lo que pides... :P

Salu2! ;)

XxTheCochixX

gracias por tu respuesta PsYkE1* eh visto tu codigo y en realidad me convence yo eh llevado un curso de lo que es visual basic pero algo bien basico asi que como q un poco no entiendo el codigo la cosa seria estudiar bueno muchas gracias lo pruebo y te aviso saludos!!

BlackZeroX


GetTempFileName



http://allapi.mentalis.org/apilist/GetTempFileName.shtml



Sangriento Infierno Lunar!¡.
The Dark Shadow is my passion.

cobein

Podes usar GetTempFileName como dice BlackZeroX▓▓▒▒░░ para obtener el nombre y utilizar Openfile con el flag FILE_FLAG_DELETE_ON_CLOSE para que se elemine al cerrar el handle.
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

Psyke1

#5
Ui, interesante, una cosa nueva que se... :)

PD: Mi solucion era un poco chapucera, ¿no? :laugh:

Salu2!