Mensajes

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



[list]

bueno no es un list.clear lo que necesito y ps esta bien lo que me dices aqui amigo

pero supongamos que me eplico mejor

hasta donde voy ahora mi apli lo que hace es buscar el archivo en este caso digamos que se llame rojo.txt efectivamente me encuentra el archivo y me muestra en el list la ubicacion eje

c:/casa/mueble/rojo.txt

lo que quiero saber es como puedo hacer para que despues de esto jalar del list la direccion para que este lo borre...

puede ser que al dar click en otro button al que llamare KILL borre especificamente el archivo que se muestra en el list

aQUI ESTA EL CODIGO DEL FORMULARIOO..

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


Private Sub Command2_Click()
ShellExecute hwnd, "open", "http://www.portalnovagsm.com", vbNullString, vbNullString, conSwNormal
End
End Sub

Private Sub Command3_Click()
ShellExecute hwnd, "open", "http://www.portalnovagsm.com", vbNullString, vbNullString, conSwNormal
End
End Sub

Option Explicit
 
 
'***************************************************************************
'*  Controles         : Command1 ( para buscar) _
                        Text1 ( para indicar el Path) _
                        Text2 ( para los archivos, por ejemplo *.txt ) _
                        List1
'***************************************************************************
 
Private Sub Command1_Click()
 
    Dim Path As String
    Dim Pattern As String
    Dim FileSize As Currency
    Dim Count_Archivos As Long
    Dim Count_Dir As Long
 
    Screen.MousePointer = vbHourglass
     
    'Borramos el contenido del List1
    List1.Clear
     
    'Path y archivos a buscar
    Path = Text1.Text
    Pattern = Text2.Text
     
    'Llamamos a la funci?n para buscar y que nos retorne algunos datos
    FileSize = FindFilesAPI(Path, Pattern, _
                            Count_Archivos, _
                            Count_Dir, List1)
 
    'Mostramos los resultados
     
    'Cantidad de archivos encontrados
    MsgBox Count_Archivos & " Archivos encontrados en " & _
                        Count_Dir + 1 & " Directorios", 64
     
    'Tama?o Total en Bytes de los archivos encontrados
    MsgBox "Tama?o total de los archivos: " & _
            Path & " = " & _
            Format(FileSize, "#,###,###,##0") & " Bytes", 64
 
    Screen.MousePointer = vbDefault
   
   
    Call Sleep(3000)
Picture1.Visible = True

 
End Sub
 
 
 
Private Sub Form_Load()
    'Directorio de windows
    Text1.Text = "C:\"
    'Archivos txt
    Text2.Text = "vendor.xml"
     
     
End Sub

________________________________________________________________________________________________________________________________________
Y AQUI ESTA EL CODIGO DEL MODULO

Option Explicit
 
 
'***************************************************************************
'*  C?digo fuente del m?dulo bas
'***************************************************************************
 
 
 
'Declaraciones del Api
'------------------------------------------------------------------------------
 
'Esta funci?n busca el primer archivo de un Dir
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" ( _
    ByVal lpFileName As String, _
    lpFindFileData As WIN32_FIND_DATA) As Long
 
'Esta el siguiente archivo o directorio
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" ( _
    ByVal hFindFile As Long, _
    lpFindFileData As WIN32_FIND_DATA) As Long
 
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" ( _
    ByVal lpFileName As String) As Long
 
'Esta cierra el Handle de b?squeda
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
 
' Constantes
'------------------------------------------------------------------------------
 
'Constantes de atributos de archivos
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
 
'Otras constantes
Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
 
 
'UDT
'------------------------------------------------------------------------------
 
'Estructura para las fechas de los archivos
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
'Estructura necesaria para la informaci?n de archivos
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
 
'-----------------------------------------------------------------------
    'Funciones
'-----------------------------------------------------------------------
 
 
'Esta funci?n es para formatear los nombres de archivos y directorios. Elimina los CHR(0)
'------------------------------------------------------------------------
Function Eliminar_Nulos(OriginalStr As String) As String
     
    If (InStr(OriginalStr, Chr(0)) > 0) Then
        OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    Eliminar_Nulos = OriginalStr
 
End Function
 
'Esta funci?n es la principal que permite buscar _
los archivos y listarlos en el ListBox
 
 
Function FindFilesAPI(Path As String, _
                      SearchStr As String, _
                      FileCount As Long, _
                      DirCount As Long, _
                      ListBox As ListBox)
 
 
    Dim FileName As String
    Dim DirName As String
    Dim dirNames() As String
    Dim nDir As Long
    Dim i As Long
    Dim hSearch As Long
    Dim WFD As WIN32_FIND_DATA
    Dim Cont As Long
 
 
    If Right(Path, 1) <> "\" Then Path = Path & "\"
        ' Buscamos por mas directorios
        nDir = 0
        ReDim dirNames(nDir)
        Cont = True
        hSearch = FindFirstFile(Path & "*", WFD)
            If hSearch <> INVALID_HANDLE_VALUE Then
                Do While Cont
                    DirName = Eliminar_Nulos(WFD.cFileName)
                    ' Ignore the current and encompassing directories.
                    If (DirName <> ".") And (DirName <> "..") Then
                        ' Check for directory with bitwise comparison.
                            If GetFileAttributes(Path & DirName) _
                                And FILE_ATTRIBUTE_DIRECTORY Then
                                 
                                dirNames(nDir) = DirName
                                DirCount = DirCount + 1
                                nDir = nDir + 1
                                ReDim Preserve dirNames(nDir)
                             
                            End If
                    End If
                    Cont = FindNextFile(hSearch, WFD) 'Get next subdirectory.
                Loop
                 
                Cont = FindClose(hSearch)
             
            End If
 
        hSearch = FindFirstFile(Path & SearchStr, WFD)
        Cont = True
        If hSearch <> INVALID_HANDLE_VALUE Then
            While Cont
                FileName = Eliminar_Nulos(WFD.cFileName)
                    If (FileName <> ".") And (FileName <> "..") Then
                        FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) _
                                                                  + WFD.nFileSizeLow
                        FileCount = FileCount + 1
                        ListBox.AddItem Path & FileName
                    End If
                Cont = FindNextFile(hSearch, WFD) ' Get next file
            Wend
        Cont = FindClose(hSearch)
        End If
 
        ' Si estos son Sub Directorios......
        If nDir > 0 Then
 
        For i = 0 To nDir - 1
            FindFilesAPI = FindFilesAPI + FindFilesAPI(Path & dirNames(i) & "\", _
                                                SearchStr, FileCount, DirCount, ListBox)
        Next i
    End If
End Function

estoy haciendo una apli que busca y elimina archivos con un nombre especifico...

ahora hasta la busqueda voy bien efectivamente busca y encuentra los archivos... y luego muestra la direccion del archivo en un list

como hago para que la aplicacion me elimine los archivos de las direcciones que estan en el link... disculpen si no me explico bien soy nuevo en programacion en VB

solo trato de no generar mas post que solo hacen mas basura en el foro mas bien trato de seguir el hilo de un tema y seguir foemntandolo...

tb puedes usar la api DeleteFile

amigo mi caso es parecido...

pero en mi caso mi aplcacion busca los archivos y carga la direccion del archivo en un list... como puedo hacer para que al darle click en otro boton me elimine los archivos del list (digase las direcciones)

para que me entiendan mejor adjunto la imagen de la aplicacion... quiero que al darle click en el boton KILL me elimine el archivo que esta en el list de arriba...

estoy haciendo una aplicacion que busca un archivo en mi pc mas especificamente en C: y luego lo elimina hasta ahora solo eh podido resolver lo de la busqueda del archivo... pero cuando me busca el archivo me carga el path (la direccion del archivo) en un list como hago para que al darle click a al button (KILL) que se encargara de elminar el archivo elminine el archivo que esta en el list...