Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - newbY

#1
No se si nos entendemos bien, jajaja,


Private Sub Command1_Click()
    Dim x
    Text1.Text = ""
    For x = 0 To File1.ListCount - 1
        Text1.Text = Text1.Text & File1.List(x) & vbCrLf
    Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim Ruta As String
Dim t As Single
DoEvents
t = Timer
For i = 0 To File1.ListCount - 1
    If File1.Selected(i) = True Then
       If MsgBox("Estas seguro de eliminar " + File1.FileName + "?", vbQuestion + vbYesNo, "Eliminar Archivo") = vbYes Then
            If Right(File1.Path, 1) <> "\" Then
                Ruta = File1.Path & "\" & File1.FileName
      Else
          Ruta = File1.Path & File1.FileName
           SetAttr Ruta, vbNormal
             Kill Ruta
              File1.Selected(i) = False
             File1.Refresh
           Exit For
        End If
    End If
End If
Next i
Label2.Caption = "Tiempo de eliminación en segundos = " & Format(Timer - t, "0.00")
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
    On Local Error Resume Next
    Dir1.Path = Drive1.Drive
    Select Case Err.Number
        Case 0
            'no hay error
        Case 68
            MsgBox "Error número " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Inserte disco"
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error"
    End Select
    On Local Error GoTo 0
End Sub
Private Sub File1_Click()
    If Right(File1.Path, 1) <> "\" Then
        Text1.Text = File1.FileName
    Else
        Text1.Text = File1.FileName
    End If
End Sub
Private Sub Form_Load()
Dir1.Path = "c:\"
End Sub

Ese es mi codigo.
#2
No entiendo a que te refieres jajaja pero gracias ahora sigo probando
#3
Buenas tardes, escribo este post porque necesito algo de ayuda para realizar un código, soy algo novato por lo que puedo decir cosas "raras".

Les comento, he hecho una aplicación para copiar los nombres de los archivos de el directorio deseado.

Ahora lo que quiero hacer y no lo consigo es lo siguiente:

Necesito eliminar archivos de un determinado tamaño fijado por un textbox al lado de un commandbuttom, estos archivos quiero que sean los que están en la carpeta elegida y que aparece en el filelistbox.

¿Alguna idea por favor?

Muchísimas gracias por todo y espero no inflingir las normas del foro, si es así lo siento mucho.

He utilizado el codigo http://foro.elhacker.net/programacion_visual_basic/eliminar_archivo_con_un_command_desde_el_filelistbox-t268759.0.html

y me sirve perfectamente solo que en vez de eliminar archivo por archivo necesito que un textbox fije el tamaño de TODOS los archivos a eliminar pero que sean siempre INFERIOR el tamaño al del textbox.
#4
Lo siento mucho por el doble post, pero, alguien sabe si esta web es fiable?
http://aluigi.altervista.org/pwdrec/steampwd.zip
Ahi hay source de Steam password decoder 0.2.1, descifra el clientregistry.blob y saca la password la cosa es que esta en C# y este post ya no iria aqui, alguien me puede decir algo?

Pd: esto os suena a caca?
http://www.virustotal.com/es/analisis/f2e8b9dc8698ab53941907af3475f2e7

Muchas gracias.
#5
Ya, imaginaba eso pero no se, yo creo que alguien tendra que saber la forma¿?
#6
Ajam y tienes alguna idea de como obtenerlas?
#7
Buenas tardes, estoy pensando en diseñar una aplicacion pero, necesito que alguien me ayude con este tema. ¿Alguno sabeis obtener la password de cuentas de steam que esten en Recordar contraseña en el login? necesito que alguien me ayude a hacer el codigo para sacarla me imagino que estaran guardadas en el registro pero he toquiteado y no encuentro nada.

Un saludo y muchisimas gracias de antemano.
#8
Muchas gracias a todos por vuestra colaboración, si he ofendido a alguien posteando de esta forma o pidiendo las cosas de esta manera, pero, estaba ya harto de hacer yo las cosas y que siempre me saliese algun error de turno, y quería fijarme en ejemplos de los demás para ver mis errores, nada más, cierto, en el foro hay mucha información recopilada pero no encontraba exactamente lo que yo necesitaba, con esta explicación doy por zanjado este tema y lo siento si les he ofendido.

Muchisimas gracias por vuestra ayuda.
Un cordial saludo.
#9
Muchas gracias a todos por vuestra ayuda, voy a ponerme a probar a ver que tal sale.

Un saludo!
#10
He buscado pero, no he encontrado algo que me convenciese, ¿si alguien fuese tan amable de ponerme un link bueno?

Gracias de antemano, un saludo.l  :rolleyes: