|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Deletando um arquivo
|
 |
|
|
|
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
|
|
|
|
|
