Foro de elhacker.net

Hoola!

la pregunta es:

como hago que cuando aprete x ej el boton que dice

"Borrar Los Temporales" se borre la carpeta %temp%, y q otro boton diga

"Crear Carpeta De Temporales (crea la carpeta %temp% vacia)" (o lo q sea...)

entopnces cuando toq eso haga lo q dicen los botones xD

ya lei lo de kill "C:\archivo.tct" (x ej), pero se q asi no es u.u, osea falta algoo

porq yo pongo en el codigo del boton

kill "ladirecciondelarchivoaborrar"

pero si compilo tira el error de q el procedimiento o algo asi esta mal :S

ACLARO : No tiene q pedir confirmacion u.u

tampoco llevarlo a la papelera xD!

salu2!

1. Eliminar un Directorio (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/35.htm)
2. Crear un Directorio (http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#mkdir)
3. WTF! No pueden quedar dentro de la Papelera. Pues entonces eliminas el contenido de la papelera (http://www.recursosvisualbasic.com.ar/htm/listado-api/125-vaciar-papelera-reciclaje.htm)

PD: Moverlo a http://foro.elhacker.net/programacion_vb-b50.0/

Saludos!

Hola!
gracias x responder pero no entendi naada u.u

no podrias dejarme aca el codigo para borrar el archivo que se encuentre en C:\lala.txt

o la carpeta lala q esta tambien en C:\

salu2!

No vamos a hacer tu tarea, por lo menos lee los LINK's. ¬¬

no es ninguna tarea.-

recien hoy empiezo con esto u.u

Ok, entonces empieza consultado y haz preguntas, pero no digas que te hagamos los codes.

ok, jaja u.U!

yo solo pedi el code para borrar un archivo o una carpeta.

lei lo del RmDir

tonces para borrar la carpeta seria

por ejemplo

Private Sub activar_Click()
RmDir(c:\lala)
End Sub


~~~~

pero me dice la q sintaxis esta mal ¬¬

me pueen ayudar u.u?

salu2!

otra pregunta :S

q es command1 y 2 y asi?
salu2

Es el nombre que por defecto se le asignan a ciertos objetos, en este caso, a los "botones".

lee un poco:

saludos!!

Como RmDir, es un comando del Sistema, no lo podes usar asi como asi dentro de VB, tendrias que usar la función Shell (http://msdn.microsoft.com/es-es/library/xe736fyk%28VS.80%29.aspx). Así:

Shell("RmDir()")

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#rmdir

hola!

gracias u u
            <


el code seria asi, no?

Private Sub activar_Click()
Shell ("RmDir(c:\lala)")
End Sub


bueno, con ese code, cuando toco para q borre el C:\lala me dice:

Error 53 (no se ha detectado el archivo) -.-"

:S

saludos!

tmb probe con

Shell ("del(C:\lala)")

y tira lo mismo

agrego:

tmb probe con

Private Sub activar_Click()
Shell ("del(C:\lala)")
Shell ("del(C:\asd)")
End Sub

y tira lo mismo :S

una pregunta...

el Shell, sirve para todos los comandos del cmd.exe?

S2

Hola, ¿ porque digo yo si usas visual basic 6 usas comandos de batch ?, para eso programa en batch...

.

 
On Error GoTo ErrDelFile:       '   //  por si realmente no s puede borrar
Dim Archivo As String
    If Not Dir(Archivo, vbArchive) = "" Then
        Archivo = "c:\archivo.x"
        SetAttr Archivo, vbNormal
        Kill Archivo
    End If
ErrDelFile:
 
 

prueba con eso.

Temibles lunas
.

u.u

uso VB porque necesito el "programa" xD


muuchas gracias ...!

ahora , otra pregunta xD

puedo cerrar un proceso desde VB?

gracias u.u

 me olvidava eje , para borrar el archivo x.xxx y el la.xx, tengo q poner asi?

Private Sub activar_Click()
 
On Error GoTo ErrDelFile:       '   //  por si realmente no s puede borrar
Dim Archivo As String
    If Not Dir(Archivo, vbArchive) = "" Then
        Archivo = "c:\x.xxx"
        SetAttr Archivo, vbNormal
        Kill Archivo
    End If
ErrDelFile:
 
End Sub

Private Sub activar_Click()
 
On Error GoTo ErrDelFile:       '   //  por si realmente no s puede borrar
Dim Archivo As String
    If Not Dir(Archivo, vbArchive) = "" Then
        Archivo = "c:\la.xxx"
        SetAttr Archivo, vbNormal
        Kill Archivo
    End If
ErrDelFile:
 
End Sub


chau

.
en lugar de alentarte a solo pedir te alentare a usa un manual, en este subforo hay muchas respuestas

Temibles Lunas!¡.
.

ajjaajaj ok, igual gracias u.u

por cierto el código que te di trae un error ( evasión de vagos )

Dulces Lunas!¡.
.

si hubiera un archivo en la carpeta c:\
llamado petro.txt

esto te lo borraria
------------------------------------------------------------------------------------------
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Form_Load()
DeleteFile "c:\petro.txt"
End Sub
-----------------------------------------------------------------------------------------