Visual Basic 6 - cartelle predefinite di windows

Forum - Visual Basic 6 - cartelle predefinite di windows

nonnic (Normal User)
Newbie

Messaggi: 2
Iscritto: 13/02/2023

Postato alle 16:04
Lunedì, 13/02/2023

Come faccio a trovare il percorso di una cartella predefinita di windows? per ex. download, documenti ecc..

Monnic

nessuno (Normal User)
Guru^2

Messaggi: 6318
Iscritto: 03/01/2010

Postato alle 16:22
Lunedì, 13/02/2023

Puoi usare la funzione Environ (per quelle che sono impostate nell'ambiente) oppure la API

SHGetSpecialFolderPathA
https://learn.microsoft.com/en-us/windows/win32/api/shlobj_ ...

indicando uno tra i codici di questa lista

https://learn.microsoft.com/en-us/windows/win32/shell/csidl

Ad esempio, con il primo metodo, partendo da

Environ("USERPROFILE")

puoi concatenare "\Desktop" per il desktop, oppure "\Documenti", oppure "\Download"

Un altro modo è usare la libreria "WScript.Shell" e il metodo SpecialFolders

Codice sorgente - presumibilmente Visual Basic 6

Set oWSHShell = CreateObject("WScript.Shell")
GetDesktop = oWSHShell.SpecialFolders("Desktop")

L'ultimo modo funziona solo con le cartelle

      AllUsersDesktop
      AllUsersStartMenu
      AllUsersPrograms
      AllUsersStartup
      Desktop
      Favorites
      Fonts
      MyDocuments
      NetHood
      PrintHood
      Programs
      Recent
      SendTo
      StartMenu
      Startup
      Templates

Per tutto il resto c'è Google ...

Ultima modifica effettuata da nessuno il 13/02/2023 alle 16:30

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilità) chiamava il gioco del Lotto Tassa sulla stupidità.

nonnic (Normal User)
Newbie

Messaggi: 2
Iscritto: 13/02/2023

Postato alle 11:32
Martedì, 14/02/2023

grazie della tempestivitÃ ,.
ho provato l'esempio dell'help di VB6
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Esempio di funzione Environ
In questo esempio la funzione Environ viene utilizzata per fornire il numero di voce e la lunghezza dell'istruzione PATH contenuta nella tabella delle stringhe di ambiente.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Codice sorgente - presumibilmente VB.NET

Dim EnvString, Indx, Msg, PathLen   ' Dichiara le variabili.
Indx = 1   ' Inizializza l'indice su 1.
Do
   EnvString = Environ(Indx)   ' Legge la variabile di
            ' ambiente.
   If Left(EnvString, 5) = "PATH=" Then   ' Verifica la voce PATH.
      PathLen = Len(Environ("PATH"))   ' Legge la lunghezza.
      Msg = "Voce PATH = " & Indx & " e lunghezza = " & PathLen
      Exit Do
   Else
      Indx = Indx + 1   ' La voce PATH non esiste
   End If   ' perciÃ² incrementa.
Loop Until EnvString = ""
If PathLen > 0 Then
   MsgBox Msg   ' Visualizza il messaggio.
Else
   MsgBox "Non esiste alcuna variabile di ambiente PATH."
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Thejuster Edit:
Usa il tag code cortesemente.

ma non sono venuto capo a niente, il resto purtroppo per me troppo tecnico, ma questo non può essere addebitato a te.

Ultima modifica effettuata da Thejuster il 14/02/2023 alle 16:02

Monnic

Carlo (Member)
Guru

Messaggi: 1134
Iscritto: 29/01/2018

Postato alle 15:22
Martedì, 14/02/2023

Hai la lunghezza della stringa path perché quella chiedi che sia stampata con & PathLen. La stringa Path si trova in: EnvString

con questo codice puoi vedere tutte la variabili d'ambiente.

Codice sorgente - presumibilmente VB.NET

Dim EnvString, Indx, Msg, PathLen   ' Dichiara le variabili.
Indx = 1   ' Inizializza l'indice su 1.
 
Do
   EnvString = Environ(Indx)  ' Legge le variabili di ambiente.
   Debug.Print ("Variabile ambiente N." & Indx & "  " & EnvString)
   Indx = Indx + 1 
Loop Until EnvString = ""

per leggere nello specifico il percorso della cartella Documenti e Desktop dell'utente:
https://forum.html.it/forum/showthread.php?threadid=829214

Ultima modifica effettuata da Carlo il 14/02/2023 alle 21:42

in programmazione tutto è permesso

nessuno (Normal User)
Guru^2

Messaggi: 6318
Iscritto: 03/01/2010

Postato alle 18:51
Martedì, 14/02/2023

Ma scusa, queste due righe che ti avevo proposto

Codice sorgente - presumibilmente Visual Basic 6

Set oWSHShell = CreateObject(&quot;WScript.Shell&quot;)
GetDesktop = oWSHShell.SpecialFolders( Desktop")

le hai provate?

Ultima modifica effettuata da nessuno il 14/02/2023 alle 18:53

Carlo (Member)
Guru

Messaggi: 1134
Iscritto: 29/01/2018

Postato alle 16:10
Mercoledì, 15/02/2023

@nessuno

Testo quotato

Postato originariamente da nessuno:

Ma scusa, queste due righe che ti avevo proposto

Codice sorgente - presumibilmente Visual Basic 6

Set oWSHShell = CreateObject(&quot;WScript.Shell&quot;)
GetDesktop = oWSHShell.SpecialFolders( Desktop")

le hai provate?

Le due righe sono piene di caratteri spurii da copia e incolla. Quelle che hai postato il 13 feb invece sono senza errori:

Codice sorgente - presumibilmente Visual Basic 6

Set oWSHShell = CreateObject("WScript.Shell") 
GetDesktop = oWSHShell.SpecialFolders("Desktop")

Ultima modifica effettuata da Carlo il 15/02/2023 alle 16:13

in programmazione tutto è permesso

nessuno (Normal User)
Guru^2

Messaggi: 6318
Iscritto: 03/01/2010

Postato alle 16:55
Mercoledì, 15/02/2023

Sì, questo fatto grazie all'editor di questo forum che combina questi pasticci quando si va in modifica.

E' veramente insopportabile ed è sempre stato così ... anche se è stato fatto notare più volte.

Si dovrebbe pensare ad aggiornare il prodotto installato, questo è preistorico.