Borrar un archivo en VB

[burbu_1]

Kill List1.List(0)

Te aconsejo que leas ésto
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm

[TGa.]

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim Directorio As String

Private Sub Command1_Click()
    Kill Directorio
End Sub

Private Sub List1_Click()
    Directorio = List1.Text
End Sub

[Once]

mira, solo selecciona en la lista el item a borrar

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
   Kill Me.List1.Text
   Me.List1.RemoveItem Me.List1.ListIndex
End Sub


Saludos

[roberth780]

mira, solo selecciona en la lista el item a borrar

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
  Kill Me.List1.Text
  Me.List1.RemoveItem Me.List1.ListIndex
End Sub


Saludos

bueno esto me parece es mas cercano a o que yo necesito pero me manda error aqu esta el codigo no se si hago algo mal...

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Option Explicit

Private Sub Command2_Click()
Kill Me.List1.Text
Me.List1.RemoveItem Me.List1.ListIndex
End Sub



[Once]

me imagino que tienes declarada la api ShellExecute. Ademas a mi me daba error si el nombre del archivo tiene espacios.

Saludos.

[roberth780]

efectivamente en un modulo bas esta la api... y el archivo no tiene espacios en el nombre

Código [Seleccionar] Expandir

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const conSwNormal = 1

[roberth780]

aun no logro solucionar el punto de el eliminado de los archivos... quien tenga una respuesta para esto seria de gran ayuda de antemano gracias..

[Petro_Boca]

aun no logro solucionar el punto de el eliminado de los archivos... quien tenga una respuesta para esto seria de gran ayuda de antemano gracias..

El siguiente codigo lo unico que hace es Eliminar una rchivo AUN CUANDO ESTE OCULTO!¡.

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
    Call MsgBox(IIf(KillFileWithAttributes("un ArchivoX"), "Corrrectamente Borrado", "Error"))
End Sub

Private Function KillFileWithAttributes(ByVal StrFile$) As Boolean
On Error Resume Next
    Call SetAttr(StrFile, vbNormal)
    Call Kill(StrFile)
    KillFileWithAttributes = Err.Number = 0
End Function



Edito: Se pueden usar LAs APIS pero mejor con las funciones propias de VB6... no es algo que nesesite de APIS realmente!¡.

Dulces Lunas!¡.