USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Arquivos/Diretórios)

Título da Dica:  Deletando um arquivo
Postada em 5/11/2003 por ATS      Clique aqui para enviar email para o autor  alcirteodoro@ig.com.br
Private Sub Command1_Click()
Dim Arquivo As String 'variável
CommonDialog1.ShowOpen 'indica o local do arquivo
Arquivo = CommonDialog1.FileName 'Caminho do arquivo
If Arquivo = Empty Then
'Não faça nada
Else
Dim x
x = MsgBox("Deseja realmente excluir o arquivo " & Arquivo, 36) 'opçao sim ou não
If x = vbYes Then
Kill (Arquivo) 'deleta o arquivo
Else
'Não faça nada
End If: End If
End Sub

' Abilite o componente Microsoft Common Dialog Control 6.0

 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página