Verificando se um arquivo existe e determinando o seu tamanho ! 

Para saber se um arquivo existe e determinar o seu tamanho , siga o roteiro?

1-) Inicie um novo projeto no Visual Basic e no formulário padrão insira um botão de comando (command1 ) - Procurar e uma caixa de texto ( text1 ) 

2-) Insira o seguinte código no formulário

Function ArquivoExiste%(snome$)
On Local Error Resume Next

Dim ff%
ff% = FreeFile
Open snome$ For Input As ff%

If Err Then
   ArquivoExiste% = False
Else
   ArquivoExiste% = True
End If

Close ff%

End Function

O código da função ArquivoExiste O resultado da execução do código 

4-) Insira o seguinte código no evento Click do botão de comando - Procurar:

Private Sub Command1_Click()
 Dim TamanhoArquivo As Long


successo% = ArquivoExiste%(Text1.Text)

' verifica se o arquivo existe
If successo% = True Then
    TamanhoArquivo = FileLen(Text1.Text)

    MsgBox "O arquivo existe." & vbCrLf & " Tamanho => " &  TamanhoArquivo & " bytes", vbInformation, "Dicas e truques"
 Else
    MsgBox "O arquivo não existe", vbInformation, "Dicas e truques"
End If
 End Sub

5-) Rode o projeto e informe o nome de um arquivo que deseja localizar. Se o arquivo existir o sistema informa isto e ainda dá o tamanho do arquivo. Você só precisa passar para a função o caminho e nome do arquivo.

Simples e direto...