1:循环文件夹中的所有文件
2:判断文件是否后缀为txt
3:是后缀为txt的文件则执行删除
................................................................
如果能指定具体文件名则可直接执行删除
DIM X
X="a.8.txt"
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath(X)) Then
objFSO.DeleteFile Server.MapPath(X),True
end if
Set objFSO = Nothing
界面布置主界面设计中有个“删除”按钮,其(ID)为btnDelete。用户在目录浏览中选中要删除的项后,单击该按钮就可以完成删除工作。代码实现在“设计”面板中双击“删除”按钮,为其添加事件处理程序如下: private void BtnDelete_Click(object sender, System.EventArgs e) { DeleteThings(FileList.SelectedItem.Text)} private void DeleteThings(string FullPath) { if(FullPath.IndexOf(".")>0) //删除文件 { File.Delete(FullPath)LoadDir(CurrentPath)//重新载入当前目录 } else //删除目录 { Directory.Delete(FullPath)LoadDir(CurrentPath)//重新载入当前目录 } } 删除时首先判断选中的是文件还是文件夹。如果是文件,则调用File.Delete()方法;反之则调用Directory.Delete()方法。删除成功后再调用LoadDir()方法显示更改后的目录内容。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)