| Notes: WARNING: Under Windows 95, this function will delete the file even if the file is currently open by an application. Also, the file does not go to the Recycle Bin Set strPath to the full path of the file you are deleting. Public Declare Function DeleteFile& Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) Public Sub DeleteAFile(strFilePath As String) DeleteAFile = DeleteFile(strFilePath) If DeleteAFile = 0 Then ' Insert Error Handling routine here End If End Sub |
Delete A File |
Express News India | Freelance ecommerce web development India