Postada em 3/6/2004 por Josefh Hennyere Título: Atributos de um arquivo Requisitos: 1 Command Button
Private Sub Command1_Click()
MsgBox "Iremos analizar o arquivo ''System.ini''" MsgBox "Data e hora da última atualização: " & FileDateTime("c:Windowssystem.ini") MsgBox "Tamanho do arquivo em bytes: " & FileLen("c:Windowssystem.ini") MsgBox "Atributos do arquivo: " & GetAttr("c:Windowssystem.ini")