nadie tiene idea? por que use varias funciones y no me encuentra la carpeta si alguien me ayuda graciass

la idea es borrarlos desde vb con un commandbutton la carpeta eesta como occulta y desde el vb no me deja vborrarlo alguna idea ? como llamo alguna de esas funciones desde un commandbutton

Na Este esta mas guapo.

ajustado  para tus capacidades.

jejejeje

solo Copia y Pega Copy and Paste  facil no?

Option Explicit
Private 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
Dim WithEvents cmdEliminar As CommandButton
Dim WithEvents dirCarpeta As DirListBox
Dim WithEvents drvUnidad As DriveListBox
Dim WithEvents filArchivo As FileListBox
Dim WithEvents txtTexto As TextBox
Dim WithEvents cmdAbrir As CommandButton
Dim Pito As Integer
Private Sub Form_Load()
    Set cmdEliminar = Form1.Controls.Add("VB.CommandButton", "cmdBoton1")
    Set dirCarpeta = Form1.Controls.Add("vb.DirListBox", "dirLista")
    Set drvUnidad = Form1.Controls.Add("vb.DriveListBox", "drvLista")
    Set filArchivo = Form1.Controls.Add("vb.FileListBox", "filLista")
    Set txtTexto = Form1.Controls.Add("VB.TextBox", "txtText")
    Set cmdAbrir = Form1.Controls.Add("VB.CommandButton", "cmdBoton2")
 
    Cmd
    Dir
    Drv
    Fil
    txt
    Cmd1
    cargaCaptions
 
 
Me.Left = 0
Me.Top = 0
Me.Height = 6855
Me.Width = 8655
Me.Caption = "Codigo para Lammer"
Me.BackColor = RGB(0, 0, 0)
End Sub
'<¡---- estas vergas cargan la interface
Private Sub Cmd()
cmdEliminar.Left = 240
cmdEliminar.Top = 5040
cmdEliminar.Height = 735
cmdEliminar.Width = 3735
cmdEliminar.Visible = True
cmdEliminar.Font.Name = "lucida console"
cmdEliminar.Font.Size = 36
End Sub
Private Sub Cmd1()
cmdAbrir.Left = 4560
cmdAbrir.Top = 5040
cmdAbrir.Height = 735
cmdAbrir.Width = 3735
cmdAbrir.Visible = True
cmdAbrir.Font.Name = "lucida console"
cmdAbrir.Font.Size = 36
End Sub
Private Sub Drv()
drvUnidad.Left = 120
drvUnidad.Top = 120
drvUnidad.Width = 3495
drvUnidad.Visible = True
drvUnidad.Font.Name = "lucida console"
drvUnidad.BackColor = vbBlack
drvUnidad.ForeColor = vbGreen
End Sub
Private Sub Dir()
dirCarpeta.Left = 120
dirCarpeta.Top = 480
dirCarpeta.Height = 4365
dirCarpeta.Width = 3495
dirCarpeta.Visible = True
dirCarpeta.Font.Name = "lucida console"
dirCarpeta.BackColor = vbBlack
dirCarpeta.ForeColor = vbGreen
End Sub
Private Sub Fil()
filArchivo.Left = 3720
filArchivo.Top = 120
filArchivo.Height = 4770
filArchivo.Width = 4575
filArchivo.Visible = True
filArchivo.Font.Name = "lucida console"
filArchivo.BackColor = vbBlack
filArchivo.ForeColor = vbGreen
End Sub
Private Sub txt()
txtTexto.Left = 0
txtTexto.Top = 6120
txtTexto.Height = 6855
txtTexto.Width = 8535
txtTexto.Visible = True
txtTexto.BackColor = vbBlack
txtTexto.ForeColor = vbGreen
End Sub
Private Sub cargaCaptions()
cmdEliminar.Caption = "Eliminar"
cmdAbrir.Caption = "Abrir"
txtTexto.Text = "C:\WINDOWS\system32\cmd.exe"
End Sub
' A qui terminan las vergas de la interface-----!>
'<---- a qui empiezan los metodos
Private Sub drvUnidad_Change()
On Error GoTo Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD
            dirCarpeta.Path = drvUnidad.Drive
    Exit Sub
Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD:
    MsgBox "Cabron fijate si ay disco sope", vbQuestion, "Pendejo"
End Sub
Private Sub dirCarpeta_Change()
            filArchivo.Path = dirCarpeta.Path
End Sub
Private Sub filArchivo_Click()
            Me.Caption = dirCarpeta.Path & filArchivo.FileName
            txtTexto.Text = dirCarpeta.Path & "\" & filArchivo.FileName
End Sub
Private Sub cmdAbrir_Click()
   Pito = ShellExecute(Me.hwnd, "Open", txtTexto, "", "", 1)
End Sub
Private Sub cmdEliminar_click()
Kill txtTexto
filArchivo.Refresh
End Sub
 

se ve mal ya cambien los colores de los codigos.

jejejeje lo hice en blog de notas xD

ya se lo que se siente programar en C

jajaja es broma

eso no sirve

la verdad es que me e dado cuenta de que la carpeta de las cookies, esta aqui

C:/Documents and Settings/usuario/Cookies

hay estan, lo raro es que aunque pongas las carperas oculta a la vista tampoco aparesen, para que aparezca y puedas acceder a la carpeta, pues teneis, que escribir o pegar el directorio tal como lo muestro, en la barra de direcciones, y berais que hai esta y de ese modo poder acceder a la carpeta....

otra forma de acceder es tambien, desde Inicio/ejecutar, y hay escribid o pegais y tambien de ese modo accederais...

Saludos...by...Dominicano