buenas pues necesitas un arrays de cadena por si el archivo pesa mas de lo limite de una sola variable string luego usas la funcion instr para buscar la cadena todo esto sobre un bucle for sobre si el array tiene mas de una longitud creo q asi es
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: pitoloko en 8 Julio 2011, 22:41 PM
Pero eso no puedes hacerlo de forma natural... ha no ser que sean antivirus portables.
Intenta instalar el avira, y luego el avast... (por ejemplo)
If Dir(Nombre) <> "" Then label1 = "EXISTE" Else label1 = "NO EXISTE"
Private Sub Form_Load()
Dim Nombre As String
Show
Label1 = ""
Nombre = "C:\Autoexec.exe"
if dir$(nombre) then label1 = "EXISTE" else label1 = "NO EXISTE"
end sub
Cita de: Hack-11 en 8 Julio 2011, 21:54 PM
aun no estudie esa variable, pero el tema me urge me podrian decir como guardarlo en un directorio elegido por mi y como hago para que se vayan guardan conforme hacen el formulario? nose si me explico lo que me pasa esque si lo hago dos veces el formulario solo se guarda el de la 2º vez y yo quiero que se guarden los dos
nose si es mucho pedir salu2
PD:se me ocurrio crear un acceso directo y poner el verdadero formulario donde quiero que se guarde el archivo pero no funciona no guarda ningun text en ningun sitio
Cita de: Hack-11 en 8 Julio 2011, 22:07 PM
pero se supone que debe estar automatizado , me refiero que yo no puedo ir cambiando en el codigo el nomre FILESAVE.text por FILESAVE2.text todo el rato
y si no te refieres a eso explicate xD y si te refieres con interactivo a que la persona guarda el txt donde el quiere no es asi, me refiero a que se guarde en una carpeta cualquiera puesta por mi y que cada vez que alguien lo haga se vayan almazenando como FILESAVE1.txt,FILESAVE2.txt...etc
dim count as byte
dim ruta as string
ruta = "C:\FILESAVE"
dim f as byte
f = freefile
count = count +1
open ruta & count & ".txt" for output as #f
...
...
Cita de: Hack-11 en 8 Julio 2011, 21:54 PM
aun no estudie esa variable, pero el tema me urge me podrian decir como guardarlo en un directorio elegido por mi y como hago para que se vayan guardan conforme hacen el formulario? nose si me explico lo que me pasa esque si lo hago dos veces el formulario solo se guarda el de la 2º vez y yo quiero que se guarden los dos
nose si es mucho pedir salu2
Cita de: VanX en 8 Julio 2011, 21:44 PM
Si usas muchos print el av lo detecta como Malware :S
El code es simple y entendible
saludos
dim F as byte
f = freefile
open app.path & "\" & "FILESAVE.txt" for output as #f
print #f, [aqui la caja de texto o variable] ejem: text1.text
print #f, [aqui la caja de texto o variable] ejem: text2.text
print #f, [aqui la caja de texto o variable] ejem: text3.text
close #f