重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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界面,试图去删除这个文件,就会得到类似的警示。