Registrarse

[rubeng]

wenas alguien tiene idea de como borrar las cookies de internet explorer 7? desde visual basic claro

[rubeng]

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

[d(-_-)b]

hola creo que esto te puede servir, este codigo borra el contenido de una carpeta, de modo que pones el directorio en donde esta la carpeta de la cookies, y su contenido sera borrado....

no me encuentra la carpeta si alguien me ayuda graciass

pues la verdad es que yo, tampoco la encuentro, pero si lo dices, porque quieres borrar las cookies, pues... as un click con el boton derecho en el navegador, y as click en propiedades, y despues en general y en el boton eliminar, aqui eliminaras los archivos temporales de internet, las cookies, etc, hay...

Borrar todos los archivos dentro de una carpeta

Código:

Sub BorrarCarpeta(sPath As String)
    Dim sName As String
    Dim sFullName As String

    Dim Dirs() As String
    Dim DirsNo As Integer
    Dim i As Integer


    If Not Right(sPath, 1) = "\" Then
        sPath = sPath & "\"
    End If

    sName = Dir(sPath & "*.*")

    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        Kill sFullName
        sName = Dir
    Wend
    
    sName = Dir(sPath & "*.*", vbHidden)

    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        Kill sFullName
        sName = Dir
    Wend
    
    DirsNo = 0
    sName = Dir(sPath, vbDirectory)

    While Len(sName) > 0

        If sName <> "." And sName <> ".." Then
            DirsNo = DirsNo + 1
            ReDim Preserve Dirs(DirsNo) As String
            Dirs(DirsNo - 1) = sName
        End If
        sName = Dir
    Wend

    For i = 0 To DirsNo - 1
        BorrarCarpeta (sPath & Dirs(i) & "\")
        RmDir sPath & Dirs(i)
    Next
End Sub

Eliminar todos los archivos dentro de una carpeta

Código:

Public Sub DelFilesInDir(DirPath As String, DelDir As Boolean)
On Error GoTo error
Kill DirPath$ & "*.*"
If DelDir = True Then
RmDir DirPath$
End If
Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Eliminar carpeta con subcarpetas y demás contenido

Código:

Public Sub CleanAllPath(sPath As String)
    Dim sName As String
    Dim sFullName As String
    ' Array used for holding the directories
    '     ,
    ' however collection may be used as well
    '     
    Dim Dirs() As String
    Dim DirsNo As Integer
    Dim i As Integer


    If Not Right(sPath, 1) = "\" Then
        sPath = sPath & "\"
    End If
    ' clean all files in the directory
    sName = Dir(sPath & "*.*")


    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        Kill sFullName
        sName = Dir
    Wend
    
    sName = Dir(sPath & "*.*", vbHidden)


    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        Kill sFullName
        sName = Dir
    Wend
    
    ' read all the directories into array
    DirsNo = 0
    sName = Dir(sPath, vbDirectory)


    While Len(sName) > 0


        If sName <> "." And sName <> ".." Then
            DirsNo = DirsNo + 1
            ReDim Preserve Dirs(DirsNo) As String
            Dirs(DirsNo - 1) = sName
        End If
        sName = Dir
    Wend


    For i = 0 To DirsNo - 1
        CleanAllPath (sPath & Dirs(i) & "\")
        RmDir sPath & Dirs(i)
    Next
End Sub 

espero que te sirva esto, bye..

Saludos...

[rubeng]

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

[Red Mx]

rubeng
 

no manches wey te estan dando un codigo para eso no salgas con que las carpetas estan ocultas por que agregando el numero 2 (archivos y carpetas ocultas) 4 (archivos y carpetas del sistema) se soluciona todo


ahora te estan dando un codigo echo al 100% mejor ponte a estudiar VB por que de plano ni usar el copy paste sabes hacer bien


creo que esa fue una de las causas el por las que ya no entro a vb

[ActiveSheet]

Na Este esta mas guapo.

ajustado  para tus capacidades.

jejejeje

solo Copia y Pega Copy and Paste  facil no?

Código

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

[skapunky]

kill("C:Documents and Settings/nombre/Cookies*.*")

Saludos 

[ActiveSheet]

eso no sirve

[rubeng]

la verdad es que eso asi de simple me ha funcionado ! gracias

[d(-_-)b]

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