APAGAR TODOS ARQUIVOS DE UMA UNIDADE

CCRISANEVB 05/01/2011 17:04:06
#361239
Oi.Gente alguém poderia me ajudar , não sei como fazer, para apagar todos os arquivos de uma unidade no meu caso de um pendrive.

Obrigado desde já.
XXXANGELSXXX 05/01/2011 20:36:39
#361279
Resposta escolhida
Veja so..geralmente nao passamos esse tipo de coisa.. pois pode ser usado para beneficio reverso, prejuizo.. mas veja algumas referencias para isso
http://www.macoratti.net/file_vb.htm
 
Excluindo arquivos

Para excluir arquivos usamos o comando Kill , com a sintaxe:

Kill caminhonomedoarquivo

caminhonomedoarquivo - Refere-se a localização e o nome do arquivo que desejamos deletar.

O comando Kill suporta a utilização de máscaras como: * e ?. Assim podemos excluir varios arquivos de uma vez.

Exemplo:

Kill c:    este\arq1.txt

Exclui o arquivo arq1.txt do diretório c:    este

Kill *.txt

Exclui todos os arquivos com extensão txt do diretório atual.

Muito cuidado ao usar Kill , pois ele literalmente [ô]mata[ô] o seu arquivo , e não há como reverter a operação. (Os arquivos excluidos com Kill não vão para lixeira.)




Implemente a vontade
CCRISANEVB 05/01/2011 20:56:14
#361280
Certo tentei assim:

dim pendrive as string
pendrive=[Ô]J:\[Ô]

kill pendrive *.*


não funcionou

XXXANGELSXXX 05/01/2011 21:51:45
#361287
tente direto

DIM PEN AS STRING
KILL PEN & *.*
XXXANGELSXXX 05/01/2011 21:53:49
#361288
Opa.. foi mal..

rsrsrs..

dim pendrive as string
pendrive=[Ô]J:\[Ô]

kill pendrive & *.*


lembrando que ele vai excluir apenas os arquivos nao exclui diretorios.. ok
XXXANGELSXXX 05/01/2011 21:57:36
#361289
Corrigido.. agora vai.. rsrs
   
Dim pendrive As String
pendrive = [Ô]g:\[Ô]

Kill (pendrive & [Ô]*.*[Ô])

Tópico encerrado , respostas não são mais permitidas