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:  Verificar se arquivo existe via api
Postada em 2/7/2001 por Maze      Clique aqui para enviar email para o autor  mazesyst@ig.com.br
' verificar se arquivo existe via api

Option Explicit

Private Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long

Private Sub Form_Load()
  
  'existe = resposta = 1
  MsgBox "Existe c:\autoexec.bat ?" + Str$(SHFileExists("c:\autoexec.bat"))
  
  'não existe = resposta = 0
  MsgBox "Existe c:\autoexec.xxx ?" + Str$(SHFileExists("c:\autoexec.xxx"))
  
End Sub
 


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