|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Deletando um arquivo
|
![](images/box01dirsup.gif) |
|
|
Postada em 5/11/2003 por ATS
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
|
|
|
|
![](images/hosted.gif)
|