Mensajes

Personalmente, ZAR ó TestDisk

saludos

la respuesta que te dieron parece una broma..... qué tendrá que ver el idioma 

No creo que sean tan perros de comprobar el idioma para dejarte o no instalar.... tal vez sea algo con las rutas ("archivos de programa" - "program files")... no sé

si lo hacen por racismo (idiomismo en este caso) yo no usaría el programa... y si es por una cagada en la programación tampoco....

Siempre puedes instalarlo en una máquina virtual con el SO in english y desués hacerlo portable 

[CONTAR LINEAS EN UN STRING [FORMA ABSURDA]]

CONTAR LINEAS EN UN STRING [FORMA ABSURDA]

Código (vb) [Seleccionar] Expandir


Private Function Contar_Lineas_A_Lo_Loco(Texto As TextBox)
    'HAGO UN FOR QUE RECORRA TODOS LOS CARACTERES DEL TEXTO
    For I = 0 To Len(Texto.Text)
        'SI EL CARACTER LEIDO ES UN SALTO DE LINEA CON RETORNO DE CARRO, CUENTO UNA LINEA.
        If Mid(Texto.Text, I, 1) = vbCrLf Then
            Contar_Lineas = Contar_Lineas + 1
        End If
    Next
End Function


la forma no me parece tan absurda, pero tiene algún error 

1º En el mid empiezas a contar desde el caracter 0 y debería ser desde el 1, si no te tira error

2º Como tú mismo explicas, buscas 1 salto de linea y 1 retorno de carro.... eso son dos caracteres

3º como te pasó con el código pro, empiezas contando por 0 y no por 1

Código (vb) [Seleccionar] Expandir


Private Function Contar_Lineas_A_Lo_Loco(Texto As TextBox)
    Contar_Lineas =  1
    'HAGO UN FOR QUE RECORRA TODOS LOS CARACTERES DEL TEXTO
    For I = 1 To Len(Texto.Text)
        'SI EL CARACTER LEIDO ES UN SALTO DE LINEA CON RETORNO DE CARRO, CUENTO UNA LINEA.
        If Mid(Texto.Text, I, 2) = vbCrLf Then
            Contar_Lineas = Contar_Lineas + 1
        End If
    Next
End Function



Por último en ambos códigos añadís al final del texto original una nueva linea... y si llamas varias veces a la función se van a ir acumulando....

Código (vb) [Seleccionar] Expandir


texto.text = left( texto.text,  len(texto.text)-2 )


Saludos.

yo tampoco lo tengo muy claro.....
pero debe ser algo de esto 

http://msdn.microsoft.com/en-us/library/aa384249%28v=vs.85%29.aspx

[Wow6432Node]

Creo que es porque tu SO es de 64 bits.... 

prueba a escribir en

HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run

suerte!

leiste algo sobre la funcion strlen? 

"cualquier persona que consulte de forma habitual sitios internet que hagan apología del terrorismo o apelen al odio y a la violencia será castigado penalmente".

http://www.frontnational.com/

En primer lugar tienes que asegurarte que el valor RetornoData es 4 o más grande, ya que para guardar un valor DWORD se necesitan 4 bytes, si no, RegQueryValueEx no te retornará ERROR_SUCCESS.
Para los valores de cadena y binarios, ya haces esa comprobación llamando 2 veces al api, para los DWORD no hace falta poque SIEMPRE van a ser 4 bytes

por otro lado, los valores DWORD son números de 32 bits (4bytes) SIN signo, mientras que los valores Long de vb, son números de 32 bits CON signo.

Esto quiere decir que un valor WORD puede ir 
de                   0           0x 00 00 00 00
a      4294967295          0x FF FF FF FF

y un Long puede ir
de                 0      0x 00 00 00 00
a    2147483647     0x 07 FF FF FF

y de                 -1      0x FF FF FF FF
a      -2147483648     0x 08 FF FF FF


por lo que si el long es negativo, hay que hacer una conversión.

Código (vb) [Seleccionar] Expandir


  Dim ValueData As String
    Dim hKey As Long
    If RegOpenKey(HKEY_CURRENT_USER, "kk", hKey) = ERROR_SUCCESS Then
        Dim lngData As Long     'un valor Long es un número de 4 bytes CON signo
        If RegQueryValueEx(hKey, "Nuevo", ByVal 0, ByVal 0, lngData, 4) = ERROR_SUCCESS Then
            If lngData < 0 Then 'Si el long es negativo se pasa a DWORD (por ejemplo asi)
                ValueData = "0x" & Right$("00000000" & Hex$(lngData), 8) & " (" & (2 * 2147483648#) + lngData & ")"
            Else
                ValueData = "0x" & Right$("00000000" & Hex$(lngData), 8) & " (" & lngData & ")"
            End If
        End If
        RegCloseKey hKey
    End If


Saludos.

creo que el comodin * no se puede usar para los parámetros del explorer.exe... prueba primero que funcione desde el cmd 

podrías hacer una función para tratar los *  o ya que el directorio es fijo, usar el control filelistbox o usar un control common dialog...

puedes usar el api FindFirstFile, y si el archivo no existe GetLastError devuelve ERROR_FILE_NOT_FOUND.