Mensajes

[IF]

puedes usar un IF y un InStr.

Salu2

puff que jodido xD creo que lo mas optable es predefinir lo antes de ser creado el archivo sino chungo xD

yo creo que además el listview es mas bonito para un filemanager puedes poner el peso y la ultima molificación etc...

P.D:En mi proyecto uso Un treeview y un listview para el filemanager y queda como dios

creo que la respuesta de todo eso es listview xD.

Salu2, David

si no pones parte del código no creo que te podamos ayudar 

lo de la encriptacion huffman también se lo dije.

Lo unico que podes lograr cifrando el codigo es que los AVs no detecten el exe bindeado. Al momento que desencriptes el bicho y lo ejecutes el AV lo va a detectar.

ya pero si también adjuntas un Av-killer indetectable pues ya as sirve de algo.

Salu2

bueno aquí la dejo mi aportación:

Código [Seleccionar] Expandir

Public Function ExtraerCadena(cadena As String, l As Long) As String
Dim FullName As String
FullName = Mid(cadena, InStrRev(cadena, "\") + 1)
Select Case l
Case 1
ExtraerCadena = Mid(FullName, 1, InStrRev(FullName, ".") - 1)
Case 2
ExtraerCadena = Mid(FullName, InStrRev(FullName, ".") + 1)
Case 3
ExtraerCadena = FullName
End Select
End Function

1 = Devuelve el nombre
2 = Devuelve la extesion
3 = Devuelve el FullName

Salu2, David

pues que el Count es del 1 asta el X , pero el index es hasta el 0 asta el X.

Salu2, David

as  mirado si se a creado aquí:
"C:\Beta.txt"

que es que en el escritorio necesitas saber el nombre de user.

Salu2

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim i As Long
    List1.AddItem ("Hola$")
    List1.AddItem ("Hola$win")
    For i = 0 To List1.ListCount - 1
        List1.List(i) = Replace(List1.List(i), "$", "")
    Next i
End Sub


Salu2, David