LINHA DE COMANDO

GANDA.NICK 15/09/2005 15:43:03
#104432

apagar arquivos e pasta

http://www.vbmania.com.br/vbmdetail.php?varID=1746&TxtSearch=arquivo&CmbSort=ftitulo&varPagina=1

USUARIO.EXCLUIDOS 15/09/2005 15:44:57
#104433

to sem vb para testar, mas tente
faça um arquivo com a extensao .bat
apagar.bat
dentro dele coloque
@echo off
del "%1"

dentro do vb coloque

dim linhadecomando as string
dim nomearquivo as string
nomearquivo = arquivo.txt
linhadecomando = "apagar " & nomearquivo
shell linhadecomando, vbhide

WHELLNET 15/09/2005 15:45:56
#104434 Resposta escolhida

hehe, tava brincando aqui e acabei montando um.
Insira um textbox (txt) e um listbox (lst) num form, depois cole o codigo
Private Sub TrataComando(Comando As String)
Dim Item() As String
Item() = Split(Comando, " ")

lst.AddItem Comando
'Seleciona o comando
Select Case LCase$(Item(0))
Case "dir"
lst.AddItem "Listagem de arquivo"

Case "delete"
If UBound(Item()) = 0 Then
lst.AddItem "Arquivo não informado"
Else
kill item(1)
'Verifica se o arquivo foi realmente excluido
if dir$(item(1)) = empty then
lst.AddItem "Arquivo " & Item(1) & " deletado"
Else
lst.additem "Arquivo não pode ser excluido!"
Endif
End If

Case Else
lst.AddItem "Comando não reconhecido"
End Select
lst.AddItem ""
End Sub

Private Sub txt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TrataComando txt.Text
txt.Text = Empty
End If
End Sub


Nesse caso ae, eu não executo nenhuma ação apenas coloco no historico (list)

D4RK.V1RU5 15/09/2005 16:18:50
#104450

olha WHELLNET o code funciona muito bem, mais tem um erro
quando eu digito "delete C:\Documents and Settings\User\Desktop\1.txt" ele tenta deletar a pasta "C:\Documents"!!!
muito obrigado por me ajudar
mais vc sabe como arruma issu??