FILE NOT FOUND
Pessoal , estou selecionando um Arquivo TXt dessa maneira
Dim strFileName As String
If Right(txtArquivo.Text, 4) <> [Ô].txt[Ô] Then
MsgBox [Ô]Nome de arquivo inválido.[Ô] & vbLf _
& [Ô]Favor digitar o nome do aquivo com extensão .txt[Ô], vbCritical, [Ô]Importar[Ô]
Exit Sub
End If
strFileName = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Open strFileName For Input As #1
No caso se eu indicar um Txt que nao tenha na pasta me da o Erro File not Found que o arquivo nao ta la
como posso pegar esse retorno e exibir uma Mensagem
MsgBox [Ô] Favor Verificar se o Arquivo foi Gerado [Ô]
Abs
Obg
Marcelo Fazan
Dim strFileName As String
If Right(txtArquivo.Text, 4) <> [Ô].txt[Ô] Then
MsgBox [Ô]Nome de arquivo inválido.[Ô] & vbLf _
& [Ô]Favor digitar o nome do aquivo com extensão .txt[Ô], vbCritical, [Ô]Importar[Ô]
Exit Sub
End If
strFileName = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Open strFileName For Input As #1
No caso se eu indicar um Txt que nao tenha na pasta me da o Erro File not Found que o arquivo nao ta la
como posso pegar esse retorno e exibir uma Mensagem
MsgBox [Ô] Favor Verificar se o Arquivo foi Gerado [Ô]
Abs
Obg
Marcelo Fazan
Segue um exemplo simples.
[txt-color=#007100][ô]Validar o arquivo de texto[/txt-color]
If Dir([Ô]C:\Arq.config[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]Arq.config[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
[txt-color=#007100][ô]Sua rotina aqui[/txt-color]
Blz Tecla , Obrigado a postagem
Tentei Algo assim
[ô]Validar o arquivo de texto
If Dir([Ô]Right(txtArquivo.Text, 4 .txt[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
e parece dar mensagem que nao existe pra todos
e tambem assim
[ô]Validar o arquivo de texto
If Dir([Ô]App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
ai da erro type mistach
ql seria o mais proximo do certo ?
Abs
Obg
Marcelo Fazan
Tentei Algo assim
[ô]Validar o arquivo de texto
If Dir([Ô]Right(txtArquivo.Text, 4 .txt[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
e parece dar mensagem que nao existe pra todos
e tambem assim
[ô]Validar o arquivo de texto
If Dir([Ô]App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
ai da erro type mistach
ql seria o mais proximo do certo ?
Abs
Obg
Marcelo Fazan
MARCELOFAZAN o exemplo do TECLA não esta incorreto porem eu tive varios problemas com Dir ai passei a usar o file system object caso queira segue um link que explica seu uso direitinho http://www.macoratti.net/filesyst.htm e http://www.macoratti.net/file_vb.htm
Ola amigo obrigado os links vo dar uma olhada
o problema esta nessa linha
Dim strFileName As String
strFileName = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Open strFileName For Input As #1 - Nessa linha da File not found vejando melhor,
alguem ?
Obrg
Abs
Marcelo Fazan
o problema esta nessa linha
Dim strFileName As String
strFileName = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Open strFileName For Input As #1 - Nessa linha da File not found vejando melhor,
alguem ?
Obrg
Abs
Marcelo Fazan
eu costumo dizer que isto é reinventar a roda, rs
Colega e Xará, use um controle chamado Common Dialog Control
o que le faz? ele simplismente abre aquela janelinha pra se procurar o respectivo arquivo.
é simples consulte e verá que é a solução para o seu problema.
Colega e Xará, use um controle chamado Common Dialog Control
o que le faz? ele simplismente abre aquela janelinha pra se procurar o respectivo arquivo.
é simples consulte e verá que é a solução para o seu problema.
Treze Blz , como tá !
o common dialog control tentei por no cliente mais nao consegui rodar na estacao do cliente .
acabei resolvendo de outra forma
na questao tenhu uma janela nela digito assim 00005.txt
o que preciso somente é se nao existir
me retorne uma mensagem amigavel, e nao file not found e fechar o sistema
tentei usar o on resume error mais travo tudo nao sei sao 2 linhas q usa coloquei somente essa
o que preciso é somente arrumar essa primeria linha pq ta achando Não encontrado pra todos , mesmo tendo arquivo, da mensagem entendes
If Dir([Ô]Right(txtArquivo.Text, 4 .txt[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
Não sei se tem que tirar o , rigth 4 ou .txt[Ô],
ou mesmo tem uma variavel string que guarda ela toda verificar que ela nao existe que seria inves te usar o txtArquivo
o strFilename poderia ser com ele , o problema é de sintax
tem isso declarado que da o caminho exato
Dim strFileName As String
strFileName = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Open strFileName For Input As #1 - Nessa linha ocorre o File not found
Preciso dar um Exit Sub validando o arquivo c:\projeto xt\00005.txt qdo nao existir somente isso sendo que o mesmo é digitado pelo usuario num TextBox ...... txtArquivo onde ele tb é a variavel strafilemane o caminho ja completo, so que nao consigo encontrar ....
talves minha sintax esta c:\projeto xt\00005.txt.txt por isso nao encontra nada correto
Obg
Abs
Marcelo Fazan
o common dialog control tentei por no cliente mais nao consegui rodar na estacao do cliente .
acabei resolvendo de outra forma
na questao tenhu uma janela nela digito assim 00005.txt
o que preciso somente é se nao existir
me retorne uma mensagem amigavel, e nao file not found e fechar o sistema
tentei usar o on resume error mais travo tudo nao sei sao 2 linhas q usa coloquei somente essa
o que preciso é somente arrumar essa primeria linha pq ta achando Não encontrado pra todos , mesmo tendo arquivo, da mensagem entendes
If Dir([Ô]Right(txtArquivo.Text, 4 .txt[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
Não sei se tem que tirar o , rigth 4 ou .txt[Ô],
ou mesmo tem uma variavel string que guarda ela toda verificar que ela nao existe que seria inves te usar o txtArquivo
o strFilename poderia ser com ele , o problema é de sintax
tem isso declarado que da o caminho exato
Dim strFileName As String
strFileName = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Open strFileName For Input As #1 - Nessa linha ocorre o File not found
Preciso dar um Exit Sub validando o arquivo c:\projeto xt\00005.txt qdo nao existir somente isso sendo que o mesmo é digitado pelo usuario num TextBox ...... txtArquivo onde ele tb é a variavel strafilemane o caminho ja completo, so que nao consigo encontrar ....
talves minha sintax esta c:\projeto xt\00005.txt.txt por isso nao encontra nada correto
Obg
Abs
Marcelo Fazan
Altere isso...
...para isso:
If Dir([Ô]Right(txtArquivo.Text, 4 .txt[Ô], vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If...para isso:
If Dir(App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text, vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
If Dir(App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text, vbArchive) = [Ô][Ô] Then
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
Ai sim tecla !!!!!
Agora deu certo
Obrigado
Abs
Marcelo FAzan
MsgBox [Ô]Arquivo [ô]TXT[ô] não encontrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
Ai sim tecla !!!!!
Agora deu certo
Obrigado
Abs
Marcelo FAzan
Tópico encerrado , respostas não são mais permitidas