FileSys.DeleteFile( "f:\桌面\项目财务综合管理系统\附件\合同\ " & lst.SelectedItem & "", 2, 2) '则彻底删除之 ***现在可以删除了****
FileSys.DeleteFile( ProjectPath & "附件\合同\" & lst.SelectedItem & "", 2, 2)
红色代码可以使用,蓝色代码提示找不到文件,要怎么改
试一下这个:FileSys.DeleteFile( ProjectPath & "\附件\合同\" & lst.SelectedItem & "", 2, 2)
找不到肯定是木有这个文件,或者路径不正确,调试看看
msgbox(ProjectPath & "附件\合同\" & lst.SelectedItem)