Private Structure SHFILEOPSTRUCT
        Dim hwnd As Integer
        Dim wFunc As Integer
        Dim pFrom As String
        Dim pTo As String
        Dim fFlags As Integer
        Dim fAnyOperationsAborted As Integer
        Dim hNameMappings As Integer
        Dim lpszProgressTitle As String


End Structure
Public Function FileDel(ByRef Path As String) As Integer
        'Dim Result As Integer
        'Dim FileOP As SHFILEOPSTRUCT
        'With FileOP
        '    .hwnd = 0
        '    .wFunc = &H3
        '    .pFrom = Path & vbNullChar & vbNullChar
        '    .fFlags = &H40 '放进回收站
        'End With
        'Result = SHFileOperation(FileOP)
        If IO.File.Exists(Path) Then
            My.Computer.FileSystem.DeleteFile(Path, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)
        End If
End Function

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*1=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情