Mensajes

Muestra el codigo que llevas? o quieres que alguien lo haga por ti? 

A mi me parece que primero tienes que saber que hace dicha aplicación que tienes en D:\Acceso porque realmente no sabemos si oculta carpeta, o la cifra o cambia de propietario.

Quizás con FindFirstFile y FindNextFile consigas lo que quieras 

Si AMIGO algo como esto necesitaba pero no logro entenderlo podrias porfavor explicarme un poco este code te lo agradeceria bastante Haaaa y Gracias  por ayudarme!!

La explicación
http://www-user.tu-chemnitz.de/~heha/petzold/ch09g.htm

saludos

Podria ser asi.

Agregas un textbox y un VScrollbar.

y el siguiente codigo:

Código (vb) [Seleccionar] Expandir

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub


O tambien asi:
agregas un listbox y el siguiente codigo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
For i = 1 To 1000
List1.AddItem i
Next
End Sub

Saludos

Sera esto lo que quieres:

Código (vb) [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const LB_DIR = &H18D

Private Const DDL_DIRECTORY = &H10
Private Const DDL_ARCHIVE = &H20
Private Const DDL_EXCLUSIVE = &H8000

Private Sub Command1_Click()
    List1.Clear
    SendMessage List1.hwnd, LB_DIR, DDL_EXCLUSIVE Or DDL_DIRECTORY, ByVal "C:\*.*"
End Sub




Saludos

funciona bien sigue así.

espero ver tu próximo proyecto. saludos

Me parece muy bien para ser el primero.

el archivo .rar me dice que esta dañado :S

a ver si lo re-subes para probarlo.

sigue así.

saludos

Gracias  Karcrack

puedes hacer un array, ejemplo array[0][1], siendo

• nombre y [1] notas.