Rotina Simples

[stugui 0]

é o seguinte, preciso fazer com que verifique se existe este arquivo neste micro que estou e verifique tambem em um micro que está em rede se naum existir nos dois exibie a mensagem que naum existe.Private Sub Command1_Click()If Dir("c:\arquivo.txt") = "" Then MsgBox " A licença não estpa está neste micro !!!!!!!!!!!!!!!!!!" Else MsgBox " A lictá neste micro"End IfEnd Sub

[sauloreis 0]

Faz o seguinte...

 

Dim nArquivoTeste As Integer

 

' aloca handle e abre arquivo

nArquivoTeste = FreeFile

 

sArqName = Dir(DirName, vbDirectory) 'Acessa o primeiro Subdiretório do Diretorio

 

' Busca todos os subdiretórios do Diretório Raiz

While sArqName <> ""

If InStr(sArqName, "REL") <> 0 Then

Open DirName & sArqName For Input As #nArquivoTeste

If bErro Then 'Se ocorreu um Erro então é diretório

lstDir.AddItem sArqName

bErro = False

Else: Close #nArquivoTeste 'se Open Funcionou então é um Arquivo

End If

End If

sArqName = Dir() 'Acessa outro Subdiretório

Wend

 

 

Com esta rotina acima você varre diretorios e se implentar um pouco mais pode comparar com o arquivo que você precisa abrir.

 

 

Saulo

 

é o seguinte, preciso fazer com que verifique se existe este arquivo neste micro que estou e verifique tambem em um micro que está em rede se naum existir nos dois exibie a mensagem que naum existe.

 

Private Sub Command1_Click()

If Dir("c:\arquivo.txt") = "" Then

    MsgBox " A licença não estpa está neste micro !!!!!!!!!!!!!!!!!!"

Else

    MsgBox " A lictá neste micro"

End If

End Sub

<{POST_SNAPBACK}>

[stugui 0]

onde devo colocar o diretorio onde esta o arquivo

[stugui 0]

naum entendi, muito