|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Verificar a Data da Última Alteração de um Arquivo
|
 |
|
|
|
Postada em 5/4/2006 por Geronimo
'Num módulo:
Public Function DataArq(ByVal sArq As _
String) As String
If Dir$(sArq) <> "" Then
DataArq = FileDateTime(sArq)
Else
DataArq = "ERRO"
End If
End Function
'P/ chamar, no evento que você quizer:
Private Sub Command1_Click()
Dim sVar As String
sVar = DataArq("C:Quadrado 02.BMP")
If sVar <> "ERRO" Then
Text1.Text = sVar
End If
End Sub
|
|
|
|
|
