Carlos R. Faria
não registrado
|
|
Postada em 20/04/2008 23:36 hs
Toda vez que vou abrir um arquivo pelo command dialog, um arquivo inexistente, dá esse tipo de Bug. Nem dá informação de que esse arquivo é inexistente. Tente outro. Coisa desse tipo. |
|
|
|
|
|
|
|
Postada em 21/04/2008 10:47 hs
poderia postar o código e informações sobre o tipo de arquivo que quer abrir ? |
|
|
|
Carlos R. Faria
não registrado
|
|
Postada em 21/04/2008 21:06 hs
CommonDialog1.Filter = "Arquivos Texto (*.TXT)|*.TXT|"
CommonDialog1.InitDir = "C:dados" 'direciona para a pasta
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input Access Read As #1
'Open "c:*.txt" For input As #1 'Abre o arquivo para leitura
Do Until EOF(1) 'Lê o arquivo ate o fim
C = C + 1 'vai somando mais um ao contador
Line Input #1, linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
|
|
|
|
|
|
Postada em 22/04/2008 21:53 hs
CommonDialog1.InitDir = "C:dados" acredito que tenha que colocar c:Dados Se não for isto então marque a primeira linha do código com F9 e digite F5 e faça um Step by step (f8) para ver em que linha dá o erro e poste novamente |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 23/04/2008 11:12 hs
Colega creio que o problema não está no common dialog e sim na forma que você o está utilizando tente isso e veja se resolve: Private Sub Command1_Click() Dim sArquivo As String, sLinha As String
On Error Resume Next
CommonDialog1.DialogTitle = "Definir Caminho" CommonDialog1.Filter = "Arquivos Texto (*.TXT)|*.TXT|"
CommonDialog1.InitDir = "c:" ' Você não precisa inserir o nome do arquivo
CommonDialog1.FileName = "*.txt"
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowOpen
sArquivo = CommonDialog1.FileName
if sArquivo <> "" then
iARQ = FreeFile Open sArquivo For Input As iARQ 'Verificando se o arquivo está em branco: If LOF(iARQ) = 0 Then 'O arquivo está em branco. MsgBox "O arquivo está em branco!", vbExclamation, _ "ATENÇÃO!!!" 'Fecha o arquivo Close iARQ Exit Sub End If Do While Not EOF(iARQ) 'Enquanto ñ chegar ao fim do arq... Cont = Cont + 1 'Pega a linha atual: Line Input #iARQ, sLinha Loop end if Close iARQ |
|
|
|
Luis Fenando
não registrado
|
|
Postada em 03/05/2008 19:25 hs
Aki no meu pc tah dano o seguite erro, e não sei qual é o programa q ele esta pedindo, se alguem puder me ajudar, vlw, pode manda no meu e-mal...
---------------------------
GbiehCef
---------------------------
Run-time error '53':
File not found
---------------------------
OK
---------------------------
|
|
|
|
