+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Dimensioni della cartella cestino

  1. #1
    roccolamann non è in linea Scolaretto
    Post
    427

    Dimensioni della cartella cestino

    Ho impostato questa routine per mostrare le dimensioni della cartella Cestino (sistema operativo Windows Seven):
    codice:
    Sub CestinoDimensioniEsponi()
       Dim a As String
       Dim cartella As String
        cartella = "::{645FF040-5081-101B-9F08-00AA002F954E}"
         Set fso = CreateObject("Scripting.FileSystemObject")
         Set fsoFolder = fso.GetFolder(cartella)
           a = MsgBox("La cartella " & cartella & vbCrLf & _
             "è grande " & fsoFolder.Size & " bytes", vbInformation, "Cartella Cestino")
         Set fsoFolder = Nothing
         Set fso = Nothing
    End Sub
    Ma non esce alcun messaggio.
    Perché?

  2. #2
    Phil_cattivocarattere non è in linea Scribacchino
    Luogo
    Verona-Mantova
    Post
    1,262
    Quote Originariamente inviato da roccolamann Visualizza il messaggio
    ...
    Ma non esce alcun messaggio.
    Da me, su Win 8.1 pro compare invece un messaggio d'errore perché è impossibile trovare il percorso (errore di runtime 76, da vba di Access)

    Sul web ho trovato questo
    Windows 7: How to display the total size of Recycle Bin - Super User
    e come file vbs funziona.
    La sintassi sul sito contiene un paio di errori, mancano due spazi, di facile individuazione:
    codice:
    if oFS.FolderExists(objLogicalDisk.DeviceID&"\$Recycle.Bin") then
    diventa
    codice:
    if oFS.FolderExists(objLogicalDisk.DeviceID & "\$Recycle.Bin") then

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi