USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página