Verifica se cartella piena

Hai un problema con Excel?

Nuova discussione

Verifica se cartella piena
di Leonardo (utente non iscritto) data: 16/05/2014 09:43:42
Buongiorno a tutto il forum. Mi servirebbe una macro per verificare se una determinata cartella ad esempio:

C:Documents and SettingsUSERDesktopLavoroDa spedire

è vuota; se è vuota tramite msgbox "La cartella è vuota." Grazie in anticipo.

di Lucas87 data: 16/05/2014 09:54:18
Ciao

Sub hh()
    percorso = "C:Documents and SettingsUSERDesktopLavoroDa spedire" 'con  finale
    If Dir(percorso) = "" Then
    MsgBox "La cartella è vuota"
    End If
End Sub

di Grograman data: 16/05/2014 09:57:48
Alternativa con censimento:

Perdonate, ma io senza quella libreria non so usare il FileSystemObject

Option Explicit

Sub Vu_O_ta()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim sPath As String, sMSG As String
   
    Dim oFSY As FileSystemObject
    Dim oFOL As Folder
    Dim oFIL As File
    
    sPath = "C:ProveNuova cartella" '''QUI IL PERCORSO
    
    Set oFSY = New FileSystemObject
    Set oFOL = oFSY.GetFolder(sPath)
    With oFOL
      If .Files.Count = 0 Then
        MsgBox "Vuota."
      Else
        For Each oFIL In .Files
          sMSG = sMSG & Chr(13) & oFIL.Name
        Next oFIL
        MsgBox "La cartella contiene i seguenti files:" & sMSG
      End If
    End With
    Set oFSY = Nothing
    Set oFOL = Nothing
End Sub

di Leonardo (utente non iscritto) data: 16/05/2014 10:08:38
Ok, perfetto. Grazie tante
di Leonardo (utente non iscritto) data: 16/05/2014 10:17:37
La macro di Lucas87 funziona perfettamente, ho provato quella di Grograman ma mi da quest'errore:

oFSY As FileSystemObject

Errore di compilazione: tipo definito dall'utente non definito.

Potrei sapere perchè?
di Lucas87 data: 16/05/2014 10:20:33
Adesso Grograman ti insulta
di Leonardo (utente non iscritto) data: 16/05/2014 10:21:56
Spero di no

di Grograman data: 16/05/2014 10:31:05
Un pochino sì dai:
CAPRA CAPRA CAPRA!

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

di Leonardo (utente non iscritto) data: 16/05/2014 10:33:09
Ok, ma come si fa? Da strumenti e poi?

di Grograman data: 16/05/2014 10:39:49
Ho modificato negli appunti il commento alla routine

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Per l'attivazione andare su "Strumenti", "Riferimenti", cercare e spuntare il nome ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

di Leonardo (utente non iscritto) data: 16/05/2014 11:40:19
Strumenti l'ho trovato naturalmente, ma riferimenti dove sta?
di lepat (utente non iscritto) data: 16/05/2014 11:53:11
Grograman ha ragione a spazientirsi
devi andare su Strumenti della finestra del VBA, non in quella principale
di Leonardo (utente non iscritto) data: 16/05/2014 12:04:27
Ok, grazie l'ho trovato. Sono proprio una capra!

Vuoi Approfondire?