Condividi:        

come trovare la cartella download di Windows?

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

come trovare la cartella download di Windows?

Postdi templare77 » 19/12/16 07:42

Salve a tutti!
Avrei la necessità di trovare il percorso della cartella download di Windows, in quanto per una mia applicazione, a volte incontro qualche utente che ha la sua cartella download spostata dalla sua ubicazione originale. Ho cercato in rete ma fra le variabili di ambiente, non viene menzionata la cartella download. Come potrei risolvere col VBA? Grazie!
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Sponsor
 

Re: come trovare la cartella download di Windows?

Postdi patel » 19/12/16 10:15

non credo esesta una variabile di ambiente per Download, prova così
Codice: Seleziona tutto
Sub trovacartella()
    folder = "Download"
    s = find_subfolder("C:\" & folder & "*")
    If s = "" Then
      MsgBox "Nessuna directory contiene " & folder
    Else
      MsgBox "C:\" & s
    End If
End Sub

Function find_subfolder(partial_path As String) As String
Dim myfile As String, mypath As String, match As String
    On Error Resume Next
    myfile = Dir(partial_path & "*", vbDirectory)
    Do While Len(myfile) > 0
        If Left(myfile, 1) <> "." Then
            If (GetAttr(myfile) And vbDirectory) = vbDirectory Then
                match = myfile
                Exit Do
            End If
        End If
        myfile = Dir
    Loop
    find_subfolder = match
End Function
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: come trovare la cartella download di Windows?

Postdi templare77 » 19/12/16 10:52

Gratuite Patel! Poi ti dico!
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26


Torna a Applicazioni Office Windows


Topic correlati a "come trovare la cartella download di Windows?":

aiuto windows 10
Autore: mod360
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 66 ospiti