Deletar arquivo

[Claudio Neto 3]

Podem me tirar algumas dúvidas sobre como trabalhar com arquivos de texto externos?

 

1. como faço para deletar um arquivo?

2. como faço para fechar um arquivo que abri utilizando "open"?

3. como faço para verificar se o arquivo existe antes de mandá-lo abrir?

 

Obrigado

[Meokor 0]

1. como faço para deletar um arquivo?

Para deletar é simples! Basta usar a instrução Kill.

Exemplo:

 

Kill C:\MeuPrograma\TextFile.txt

 

2. como faço para fechar um arquivo que abri utilizando "open"?

Assim:

Open "PATH" For Input As #1

'--Comandos

Close #1

 

Supondo que na variável PATH esteja o caminho do seu arquivo;

Ele foi aberto como #1;

Então para fechar é só usar Close #1.

 

3. como faço para verificar se o arquivo existe antes de mandá-lo abrir?

Retorna "WIN.INI" se existir.

MyFile = Dir("C:\WINDOWS\WIN.INI")

 

É isso amigo, se tiver alguma dúvida quanto ao uso de alguns desses comandos poste ae. Espero ter ajudo. http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[Claudio Neto 3]

Valeu Meokor, ajudou muito sim...

 

Hahaha... da hora a instrução para deletar heim "kill".

 

Valeu, abraços..

[Claudio Neto 3]

Só não consegui utilizar a forma de verificação. Ele não está retornando nada. Tentei usar o nome de um arquivo inexistente para ver se dava algum erro, mas mesmo assim não acontece nada.

 

 

E quanto a MyFile, preciso declarar essa variável né, como a declaro?

 

Valeu...

[Douglas Draco 0]

Se tem uma coisa que acho interessante eh programação, legal num sabia muito dessas coisas aew.... vlw :) :) :)

[Meokor 0]

Olá Claudio Neto,

 

É quando eu tomei conhecimento da instrução Kill também achei legal :)

Agora, a "MyFile" é uma variável sim, e pode ser declarado normalmente.

 

Exemplo:

Dim MyFile

 

Como você tá fazendo para usar a função Dir? Poste seu código da maneira que você ta usando... estranho, comigo funciona normal :(

 

Abraço.

[Claudio Neto 3]

Beleza Meokor, consegui.

 

Fiz o seguinte:

 

Private Sub Form_Load()

Dim linha As String

Dim MyFile

 

MyFile = Dir("auxPrsnt.inf")

 

If MyFile <> "" Then

código

End If

 

End Sub

 

Era isso mesmo?

 

Valeu...

[Meokor 0]

É por ai sim, olha eu tinha um programinha que eu criei que usava 3 pastinhas, uma se chamava config a outra bin e a outra output, esse programinha verificava se as pastas existiam e se existiam ele mostrava uma mensagem dizendo que a pasta existia, caso contrário mostrava uma mensagem dizendo que a mesma não existia e criava uma. Dê uma olhada, acho que isso irá exclarecer todas as suas dúvidas.

 

'==== Mexe com as pastas (bin - output - config)

Dim PBin, POutPut, PConfig
 PBin = Dir(App.Path & "\bin", vbDirectory)
	
	If PBin = "bin" Then
		MsgBox "Pasta Bin existe."
		'Fazer procedimentos com a pasta.
	Else
		MsgBox "pasta nao existe. criando uma..."
		MkDir (App.Path & "/bin")
	End If
	
 POutPut = Dir(App.Path & "\output", vbDirectory)
	If POutPut = "output" Then
		MsgBox "Pasta OUTPUT EXISTE"
		'Fazer procediemtos.
	
	Else
		MsgBox "pasta n existe criando uma..."
		MkDir (App.Path & "/output")
	End If
	
	PConfig = Dir(App.Path & "\config", vbDirectory)
		If PConfig = "config" Then
			MsgBox "Pasta config existe"
			'fazer procedimentos
		Else
			MsgBox "pasta n existe. criando uma..."
			MkDir (App.Path & "/config")
		End If


'Fim

Pronto! Esse código ai eu escrevi no VB6, e tah rodando direitinho.

Abraços.