我在数据库里删除一个文件路径同时把这个文件也删除怎么用VB实现。

Question

我在数据库里删除一个文件路径但我想同时把这个文件也删除，请问怎么用VB实现。

Answer 1

Public Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
End TypePublic Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Public Const FOF_SILENT = &H4Private Sub Command1_Click()
    Dim SHFileOp As SHFILEOPSTRUCT
    ' 删除
    SHFileOp.wFunc = FO_DELETE
    SHFileOp.pFrom = Text1.Text + Chr(0)
    SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
    Call SHFileOperation(SHFileOp)
End Sub

Answer 2

将API函数放于模块中，"Text1.Text"即为需删除的文件路径，可先判断该文件是否存在Private Sub Text1_LostFocus()
    If Dir(Text1.Text) = "" Then
        MsgBox "对不起，没有发现要删除的文件"
        Text1.SetFocus
    End If
End Sub

Answer 3

远程删除！！！？？？？？呵呵，，那要看你有没有这个权限，还是是做C/S那种，让Server端自己去做删除操作！！！

Answer 4

将数据库中的字段取出后再进行字符串的处理不就行啦？如用Left Split等函数来实现

Answer 5

我数据库的路径全是这样的\\server\D\Beyond\不再犹豫.mpg
我样了好久不知怎么处理。
而且我的东东都放在服务器上。

Answer 6

这种字符串也可以用Split函数根据"\"来分解再重新进行组合的，一般也就是这种思路了