189 8069 5689
Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站设计、做网站、蒙阴网络推广、重庆小程序开发公司、蒙阴网络营销、蒙阴企业策划、蒙阴品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供蒙阴建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
Try
' 先建立目录以便用于后续的删除示范。
If Not Directory.Exists("D:\网易") Then
Directory.CreateDirectory(" D:\网易 \Test1")
Directory.CreateDirectory(" D:\网易 \Test2")
Directory.CreateDirectory(" D:\网易 \Test3")
End If
' 删除子目录 Test1。
Directory.Delete(" D:\网易 \Test1", True)
' 删除子目录 Test2。
Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")
myDirectoryInfo.Delete(True)
' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。
Directory.Delete(" D:\网易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 启动 Windows 资源管理器。
Process.Start("explorer.exe", "D:\")
End Sub
看看这个，有删除的
Public strPath As String '要导出的文件夹路径
Public NewFile As String '文件保存用
'创建文件夹
Public Sub CreatemyFolder(str As String)
Dim Mybook As Workbook
Dim f
Dim mypath As String
'Dim NewFile As String
Dim strPathFolder$
Dim abc As Object
NewFile = str
'强制覆盖保存时，不让确认框弹出？
Application.DisplayAlerts = False
Set Mybook = ThisWorkbook '把当前工作簿定义为变量Mybook
mypath = ThisWorkbook.Path "\"
strPathFolder = mypath NewFile
strPath = strPathFolder "\"
On Error Resume Next
Set abc = CreateObject("Scripting.FileSystemObject")
If abc.FolderExists(strPathFolder) = True Then
'===删除文件夹==========
Set f = abc.GetFolder(strPathFolder)
f.Delete
abc.CreateFolder (strPathFolder)
'===删除文件夹==========
Exit Sub
Else
abc.CreateFolder (strPathFolder)
End If
Set abc = Nothing
End Sub
你加载是用image.fromfile吧，这样是不行的，会锁定到磁盘的，不管你imagelist里的项是否删除，你的程序是一直加载这个图片的。
dim oi as image = image.fromfile("C:\a.bmp") ‘从磁盘加载图片
dim ois as image = oi.clone() '复制图片到内存
oi.dispose() '解除磁盘的图片占用
然后：
imagelist.images.add(ois) '加载图片到imagelist
安装的有问题了（可能是安装过程中的失败或者是误操作导致文件被删除），修复安装一下吧
也有可能是磁盘问题，看看是不是磁盘空间不足。如果等待很久（电脑假死）之后出现这个问题，有可能是硬盘坏道导致文件读取失败。
为什么非要存成TXT文件呢？最好的办法是将你的这些数据存放在DataSet对象里，然后用DataSet对象的WriteXML方法写入文件。下次读取时，使用该对象的ReadXML方法就可以取回存在文件中的数据了。你想增、删、编辑都可以，很方便的！如果非要生成TXT文件，可以在DataSet对象顺序读取数据，然后再生成想要的TXT文件。你也用不着去追究IO流的操作了。
你可以做这样的实验，打开任何一个文件，例如 txt 文件，然后切换到Windows界面，试图去删除这个文件，就会得到类似的警示。