|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Excluindo Arquivos
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
Excluindo Arquivos Através de Comandos do VB (SEM usar a Lixeira):
'O comando p/ excluir arquivos é o KILL.
'Sintaxe:
Kill Caminho\NomeDoArquivo.QualquerCoisa
'Exemplo:
Kill "C:\Desenho.BMP"
Excluindo Arquivos Através de API (USANDO a Lixeira):
O comando KILL do VB apaga o arquivo SEM manda-lo p/ a Lixeira. Ou seja, o perdemos para sempre. O código a seguir nos ensina como deletar um arquivo enviando-o para a LIXEIRA do computador:
'Num módulo:
Option Explicit
Public Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) _
As Long
Public Const FO_DELETE As Long = &H3
Public Const FOF_ALLOWUNDO As Long = &H40
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Public Sub ExcluirArq(ByVal FileName As String)
Dim FLOP As SHFILEOPSTRUCT
Dim RST As Long
FLOP.wFunc = FO_DELETE
FLOP.pFrom = FileName
FLOP.fFlags = FOF_ALLOWUNDO
'deletando o arquivo
RST = SHFileOperation(FLOP)
End Sub
'P/ excluir um arquivo, execute a rotina:
ExcluirArq "C:\Desenho.BMP"
|
|
|
|
|
