[VB6] Recuperare la lista delle cartelle condivise

[x69asterix]

domanda stupida,
esiste un modo di recuperare la lista delle cartelle e subcartelle, senza impostare una directory di partenza?

[MdE2005]

Praticamente te vorresti una funzione che ti mostrasse tutte le cartelle e sottocartelle presenti nell'hard-disk? Altrimenti non ha senso la domanda..
Cmq in Dos bastava fare così:

Tree c:\ > file.txt

e scriveva tutto in questo file.
Cmq, potresti usare i controlli drive e dir, altrimenti..spiega un pò meglio la domanda, soprattutto qui:

senza impostare una directory di partenza?

ciao

[x69asterix]

Originariamente inviato da x69asterix
domanda stupida,
esiste un modo di recuperare la lista delle cartelle e subcartelle, senza impostare una directory di partenza?

la domanda è stata formulata in modo errato:
allora sul mio pc ho un certo numero di cartelle messe in condivisione, bene adesso, io voglio tenere sotto controllo le cartelle condivise, ma mi sono perso nei percorsi, adesso chiedo è possibile recuperare la lista delle cartelle condivise del mio pc.

[MdE2005]

Ciao..praticamente te vuoi ricavare tutte le cartelle condivise..vero?
Se cerchi tra i post di qualche giorno fa vedrai che c'è una discussione simile, io avevo postato un codice che ora non posso postare perchè:
1) li scrivo al momento e non li ho nel pc
2) in questo pc non ho visual basic 6

Ciao

[x69asterix]

Originariamente inviato da MdE2005
Ciao..praticamente te vuoi ricavare tutte le cartelle condivise..vero?
Se cerchi tra i post di qualche giorno fa vedrai che c'è una discussione simile, io avevo postato un codice che ora non posso postare perchè:
1) li scrivo al momento e non li ho nel pc
2) in questo pc non ho visual basic 6

Ciao

ho provato a cercare ma non trovo il post.

[alka]

Originariamente inviato da x69asterix
ho provato a cercare ma non trovo il post.

Il ché è molto buffo poiché la discussione è tua.

[MdE2005]

Ecco..mi sembrava un argomento già trattato e anche personalmente..
forse se lo cercavo lo trovavo..

Cmq ciao

[x69asterix]

Originariamente inviato da MdE2005
Ecco..mi sembrava un argomento già trattato e anche personalmente..
forse se lo cercavo lo trovavo..

Cmq ciao

allora a parte il fatto che io non riesco a farlo girare questo codice


' >>>>> Declarations <<<<<<
Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes asLong
szDisplayName As String*MAX_PATH
End Type
Public Declare Function SHGetFileInfo Lib "Shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, _
ByVal dwFileAttributes As Long, psfi asSHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

' >>>>> Procedure/Code <<<<<<
Function IsFolderShared (ByVal folderName As String) As Boolean
Dim sfi As SHFILEINFO
SHGetFileInfo folderName, 0, sfi, Len(sfi), SHGFI_ATTRIBUTES
IsFolderShared= (sfi.dwAttributes And SFGAO_SHARE)
End Function

tu mi suggerivi
code:
Public Const MAX_PATH = 260sopra la dichiarazione del Type..
Per poi usarla devi fare così:

code:
Msgbox IsFolderShared("percorsocartella")

ma, sono proprio scarso, io non riesco a farlo girare, poi come mi suggerivi tu, ammesso che mi trovi il percorso si fermerà al primo percorso?

[oregon]

Usa WMI ...

Dim oWMI As Object
Dim cShares  As Object
Dim oShare As Object
    
Set oWMI = GetObject("winmgmts:")
Set cShares = oWMI.ExecQuery("Select * from Win32_Share")
For Each oShare In cShares
  Print oShare.Name & " (" & oShare.Path & ") ... " & oShare.Description
Next

[x69asterix]

Originariamente inviato da oregon
Usa WMI ...

Dim oWMI As Object
Dim cShares  As Object
Dim oShare As Object
    
Set oWMI = GetObject("winmgmts:")
Set cShares = oWMI.ExecQuery("Select * from Win32_Share")
For Each oShare In cShares
  Print oShare.Name & " (" & oShare.Path & ") ... " & oShare.Description
Next

ciao oregon,
provo subito, devo inserire qualche riferimento?
ho già provato, l'ho sempre detto sei Un Grande!!

bene hai letto il post sul webbrowser? esiste una soluzione?
ma da dove le prendi tutte queste risorse?