|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Verificando a Data da Última Alteração de um Arquivo
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
'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
|
|
|
|
|
