Visual Basic 6 - API Windows - Ottenere cartelle.

Forum - Visual Basic 6 - API Windows - Ottenere cartelle.

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 17:35
Giovedì, 09/08/2007

Salve ragazzi, sto programmando un applicazione dove però ho bisogno di conoscere le cartelle che ci sono sul sistema, avrei bisogno di una lista di tutte le cartelle e sottocartelle presenti sulla macchina. Non so se esiste un api che mi permette di far cio, cioè come Explore (Esplora Risorse), che mi da una lista di tutte le cartelle presenti sulla macchina.
Se qualcuno sa darmi una mano..
Spero di essere stato chiaro.
Grazie.

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 20:04
Giovedì, 09/08/2007

un'api del genere dubito.
è fattibile se fai un bell'utilizzo incrociato di + cicli (forse ricorsivi) e un dirlistbox.

()
Newbie

Messaggi:
Iscritto:

Postato alle 20:30
Giovedì, 09/08/2007

Ecco L'api da inserire in un Modulo.

Questo è il ringraziamento per avermi mandato l'ocx, ma ho ancora bisogno di aiuto con quel coso :'(

inserisci il tutto in un Modulo

Public Const CSIDL_PERSONAL = &H5                'Documenti
Public Const CSIDL_FLAG_CREATE = &H8000
Public Const CSIDL_FLAG_DONT_VERIFY = &H4000
Public Const CSIDL_ADMINTOOLS = &H30
Public Const CSIDL_ALTSTARTUP = &H1D
Public Const CSIDL_APPDATA = &H1A   'Application Data
Public Const CSIDL_BITBUCKET = &HA
Public Const CSIDL_COMMON_ADMINTOOLS = &H2F
Public Const CSIDL_COMMON_ALTSTARTUP = &H1D
Public Const CSIDL_COMMON_APPDATA = &H23
Public Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19  ' All User Desktop
Public Const CSIDL_COMMON_DOCUMENTS = &H2E
Public Const CSIDL_COMMON_FAVORITES = &H1F
Public Const CSIDL_COMMON_PROGRAMS = &H17
Public Const CSIDL_COMMON_STARTMENU = &H16
Public Const CSIDL_COMMON_STARTUP = &H18
Public Const CSIDL_COMMON_TEMPLATES = &H2D
Public Const CSIDL_CONTROLS = &H3
Public Const CSIDL_COOKIES = &H21
Public Const CSIDL_DESKTOP = &H0
Public Const CSIDL_DESKTOPDIRECTORY = &H10
Public Const CSIDL_DRIVES = &H11
Public Const CSIDL_FAVORITES = &H6
Public Const CSIDL_FONTS = &H14
Public Const CSIDL_HISTORY = &H22
Public Const CSIDL_INTERNET = &H1
Public Const CSIDL_INTERNET_CACHE = &H20
Public Const CSIDL_LOCAL_APPDATA = &H1C
Public Const CSIDL_MYPICTURES = &H27
Public Const CSIDL_NETHOOD = &H13
Public Const CSIDL_NETWORK = &H12
Public Const CSIDL_PRINTERS = &H4
Public Const CSIDL_PRINTHOOD = &H1B
Public Const CSIDL_PROFILE = &H28
Public Const CSIDL_PROGRAM_FILES = &H26
Public Const CSIDL_PROGRAM_FILES_COMMON = &H2B
Public Const CSIDL_PROGRAM_FILES_COMMONX86 = &H2C
Public Const CSIDL_PROGRAM_FILESX86 = &H2A
Public Const CSIDL_PROGRAMS = &H2
Public Const CSIDL_RECENT = &H8
Public Const CSIDL_SENDTO = &H9
Public Const CSIDL_STARTMENU = &HB
Public Const CSIDL_STARTUP = &H7
Public Const CSIDL_SYSTEM = &H25
Public Const CSIDL_SYSTEMX86 = &H29
Public Const CSIDL_TEMPLATES = &H15
Public Const CSIDL_WINDOWS = &H24
Public Const SHGFP_TYPE_CURRENT = &H0             'current value for user,
Public Const SHGFP_TYPE_DEFAULT = &H1
'verify it exists

Public Const MAX_LENGTH = 260
Public Const S_OK = 0
Public Const S_FALSE = 1
Public Const E_INVALIDARG = &H80070057
Public Declare Function SHGetFolderPath _
     Lib "shfolder.dll" Alias "SHGetFolderPathA" _
     (ByVal hwndOwner As Long, _
      ByVal nFolder As Long, _
      ByVal hToken As Long, _
      ByVal dwReserved As Long, _
      ByVal lpszPath As String) As Long

Potresti avere MOLTE difficoltà con queste cose...Per qualunque aiuto... Mi hai su MSN

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 21:35
Giovedì, 09/08/2007

cavolo non pensavo davvero che esistesse...
sorry.

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 21:44
Venerdì, 17/08/2007

Grazie Virus per il tuo aiuto, è stato molto utile, ancora grazie.
Che problema hai nell'usare l'ocx?
Hai seguito le mie istruzioni?

()
Newbie

Messaggi:
Iscritto:

Postato alle 21:39
Sabato, 25/08/2007

Si... Vedi... Non conosco bene le classi... Mi dai una mano? Ho visto che mi hai aggiunto in MSN possiamo parlarne li? Sai sono appena tornato dalle vacanze e quindi ho molte risposte.... Quando vuoi contattami pure... Grazie di tutto...