Удалить фаил
Как сделать в Vb 6 при нажатии кнопки (command1) удалился фаил например: фаил "123.dll"
Код:
Kill "C:\Windows\123.dll"
Комментарий : Перед удалением файла весьма желательно проверять его наличие, так как в случае его отсутствия Вы получите ошибку. Также удаляемый файл не должен иметь аттрибута Только для чтения/Read Only
Код:
Private Sub Command1_Click()
iFullName$ = "C:\Windows\123.dll"
iFileName$ = Dir(iFullName$)
If iFileName$ <> "" Then
If (GetAttr(iFullName$) And vbReadOnly) <> 0 Then
If MsgBox("Будем удалять файл : " & iFileName$ & vbNewLine & _
"который имеет аттрибут только для чтения ?", vbYesNo, "") = vbYes Then
SetAttr iFullName$, vbNormal
Else: Exit Sub
End If
End If
Else
MsgBox "Файл для удаления изволит отсутствовать", , ""
End If
Kill iFullName$
End Sub
iFullName$ = "C:\Windows\123.dll"
iFileName$ = Dir(iFullName$)
If iFileName$ <> "" Then
If (GetAttr(iFullName$) And vbReadOnly) <> 0 Then
If MsgBox("Будем удалять файл : " & iFileName$ & vbNewLine & _
"который имеет аттрибут только для чтения ?", vbYesNo, "") = vbYes Then
SetAttr iFullName$, vbNormal
Else: Exit Sub
End If
End If
Else
MsgBox "Файл для удаления изволит отсутствовать", , ""
End If
Kill iFullName$
End Sub
А как удалить сразу несколько фаилов и со времени.
Код:
iDeleteFiles = Array("C:\Temp\Text.txt", _
"C:\Temp\Sales.doc", _
"D:\Archive\Report.xls")
For Each iFile In iDeleteFiles
If Dir(iFile) <> "" Then Kill iFile
Next
"C:\Temp\Sales.doc", _
"D:\Archive\Report.xls")
For Each iFile In iDeleteFiles
If Dir(iFile) <> "" Then Kill iFile
Next
Код:
Kill "*.TXT"
Удаляет все файлы с расширением .TXT из текущего каталога. © help Microsoft
А как удалить папку