| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 147 人关注过本帖
标题:求助:在listview中显示的文件信息(包括文件名/文件路径),想实现删除功能 ...
只看楼主 收藏
Steven_LHX
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2017-10-18
结帖率:0
  已结贴   问题点数:10  回复次数:4   
求助:在listview中显示的文件信息(包括文件名/文件路径),想实现删除功能,但不能实现彻底删除所选项的文件?
大家帮帮我看看代码,问题出在哪,尝试了好多遍了,谢谢!
程序代码:
Try
            Dim dfpath As String = NodeDrives.SelectedItem.ToString
            Dim dfi As DirectoryInfo = New DirectoryInfo(dfpath)
            Dim file As FileInfo() = dfi.GetFiles(".", SearchOption.AllDirectories)
            Dim fiTemp As FileInfo
            For Each fiTemp In file
                Dim lifile() As String = {fiTemp.Name, fiTemp.FullName, fiTemp.Extension, fiTemp.LastWriteTime}
                If lifile(0) = ListView1.SelectedIndices.ToString Then
                    Dim dpath As String = fiTemp.FullName
                    Dim fi As FileInfo = New FileInfo(dpath)
                    fi.Delete()
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


[此贴子已经被作者于2017-10-27 08:28编辑过]

2017-10-26 22:18
xyxcc177
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:13
帖 子:70
专家分:270
注 册:2017-7-8
  得分:10 
不知道彻底删除是什么意思?
2017-10-28 12:54
xyxcc177
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:13
帖 子:70
专家分:270
注 册:2017-7-8
  得分:0 
程序代码:

'用System.Io.File
Dim FileName As String
System.Io.File.Delete(FileName)
2017-10-28 12:59
zhangcanwei
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:4
帖 子:54
专家分:135
注 册:2010-7-4
  得分:0 
看看fiTemp.FullName字符串中是否包含了非法字符
2017-11-04 07:55
zhangcanwei
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:4
帖 子:54
专家分:135
注 册:2010-7-4
  得分:0 
在循环体内定义变量不好。影响速度。应该在循环体外部定义
2017-11-04 07:56







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.121074 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved