VBA - Ottenere tutte le informazioni su un file

Preliminari

• Apri una nuova cartella di lavoro
• Aggiungi un modulo

Nel modulo

 'Dichiarare le variabili per la procedura guidata. Palloncino pubblico1 Come palloncino Palloncino pubblico2 Come palloncino Palloncino pubblico3 Come palloncino 'È possibile utilizzare una tabella anziché' più istruzioni, ho scelto l'opzione multipla per 'il codice è più esplicito' Public BalloonMultipl (3) come balloon 'Public Title As String Public Message As String Sub openMessage () 'Dichiara variabili. Dim WizardName As String Dim IsVisible As Boolean Dim Result As Byte 'Imposta errori come clear On Error Riprendi Avanti Err.Clear' Memorizza il nome corrente di Wizard. WizardName = Wizard.Name 'Se la procedura guidata non è visibile, impostarla come visibile Se Wizard.Visible = False Then Wizard.Visible = True IsVisible = False Else IsVisible = True End Se' create Wizard balloon. Set balloon2 = Wizard.NewBalloon With balloon2 'metti il ​​titolo e le domande. .Heading = Title .Text = Message 'Imposta le proprietà della procedura guidata. .BalloonType = msoBalloonTypeButtons 'la modalità modale, come predefinita. .Mode = msoModeModal 'assegna l'opzione Annullata al pulsante, OK è il valore predefinito. .Button = msoButtonSetOK End Con 'wait for selection Do' Selection done Result = balloon2.Show 'Se il pulsante è selezionato, termina macro. Se Err 0 Then If IsVisible = False Then Wizard.Visible = False End If End End Se Loop End Sub Sub DisplayInfoAccessFile (specfile) 'È necessario che la cartella di lavoro sia già presente sul disco rigido. '------------------------------------------------- --- Dim fs, f, s Set fs = CreateObject ("Scripting.FileSystemObject") Imposta f = fs.GetFile (specfile) s = UCase (specfile) e vbCrLf s = s & "Creato il:" & f.DateCreated & vbCrLf s = s & "Ultimo accesso:" & f.DateLastAccessed & vbCrLf s = s & "Ultima modifica:" & f.DateLastModified e vbCrLf s = s & "Dimensioni" & f.Dimensioni e "byte". & vbCrLf s = s & "Drive" & f.Drive & vbCrLf s = s & "Directory" & f.ParentFolder Title = "Informazioni sul file:" & specfile Message = s openMessage End Sub 

Nel modulo sheet1

 Private Sub Worksheet_Activate () Range ("B5"). Value = "visualizza informazioni sul file" con ActiveSheet.Range ("B5"). Font .Name = "Arial" .Size = 16 .ColorIndex = 5 .Bold = True End With Columns ("B"). ColumnWidth = 48 End Sub Private Sub Worksheet_SelectionChange (ByVal Target As Range) Dim a $, b $ a $ = ActiveWorkbook.Path & "\" e ActiveWorkbook.Name b $ = ActiveWorkbook.Name Se ActiveCell.Address = "$ B $ 5" Quindi AfficheInfoAccesFile (ActiveWorkbook.Name) End If End Sub