Claro que es posible!
Esto que pides es un poco raro, no?¿
Segun lo que has dicho esto es exactamente lo que pides...
Salu2!
Esto que pides es un poco raro, no?¿
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...
Salu2!