Como Borro Un Archivo En Visual Basic 6?

[cassiani]

Código [Seleccionar] Expandir

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

[Petro_Boca]

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í:

Código (vb) [Seleccionar] Expandir

Shell("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!

[Petro_Boca]

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

[seba123neo]

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

[BlackZeroX]

.

Código (vb) [Seleccionar] Expandir



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
.

[Petro_Boca]

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

u.u

uso VB porque necesito el "programa" xD

.

Código (vb) [Seleccionar] Expandir



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
.

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

[BlackZeroX]

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

Temibles Lunas!¡.
.

[Petro_Boca]

ajjaajaj ok, igual gracias u.u

[BlackZeroX]

ajjaajaj ok, igual gracias u.u

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

Dulces Lunas!¡.
.

[SOMBRIO]

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
-----------------------------------------------------------------------------------------