vb中用commondialog保存一文件后 该文件所在文件夹无法删除等 即句柄被该程序占用 怎么释放这个句柄?

作者&投稿:水爬 (若有异议请与网页底部的电邮联系)
vb中用commondialog保存一文件后 该文件所在文件夹无法删除等 即句柄被该程序占用 怎么释放这个句柄?~

commondialog对象关闭后释放

用API吧,如下,可以选择文件夹并返回路径

'单击command3,用WINDOWS API 函数浏览文件夹并返回路径到text2



Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pIdl As Long, ByVal pszPath As String) As Long



Private Type BrowseInfo
hwndOwner As Long
piDLroot As Long
pszdisplayName As String
lpsztitle As String
ulFlags As Long
lpfncallback As Long
lParam As Long
iImage As Long
End Type



Private Sub Command3_Click()
Dim bi As BrowseInfo
Dim folderid As Long
Dim pb As String
With bi
.hwndOwner = Me.hWnd
.lpsztitle = "把输出的文件存放到这个文件夹:"
.ulFlags = 3
End With
folderid = SHBrowseForFolder(bi)
If folderid = 0 Then Exit Sub
pb = String$(260, 0)
SHGetPathFromIDList folderid, pb
pb = Left$(pb, InStr(pb, vbNullChar) - 1)
Text2.Text = pb
End Sub

首先这与CommonDialog没有关系,主要是保存一文件后,你没有及时关闭文件。
记住:Open与Close要成对使用。

比如:
Open xFile for output as #1
......
Close #1

无法删除文件夹文件正在被另一个人或程序使用的观点
无法删除文件夹 文件正在被另一个人或程序使用,无法删除文件夹 目录不是空的原因有以下几点:
1.当文件夹中存在正在被占用的文件时,删除当然会失败。其中包括有一些病毒程序在运行时,删除文件夹的操作也会失败。
2.如果采用NTFS文件系统,当前用户不具备目标文件的完全控制权限时,删除就会失败。
3.文件存储出问题,删除也会失败。比如U盘损坏,我们可以在资源管理器中看到这个文件,却不能删除文件
4.文件名中存在特殊字符,会导致删除时失败。部分用户或软件会创建这样的特殊文件以保护有价值文件被无意中删除。

无法删除文件夹 文件正在被另一个人或程序使用解决方案
1.首先试一下用金山毒霸查杀病毒,如果将正在运行的病毒清除,文件夹中的文件自然不会继续占用,即可完成删除。
2.可以考虑使用金山毒霸2011百宝箱中的进程查看器,检查当前运行的进程是否有处于要删除的文件夹中。
结束进程后,再去尝试删除是否会成功。
3.若仍失败,可以尝试一下用金山毒霸百宝箱中的文件粉碎器。注意,一般不要使用文件粉碎器来删除一个很大的文件或文件夹,这会花费相当长的时间。
4.或者,你可以尝试一下unlocker,百度一下就能找到。安装后,在目标文件夹的图标上点右键,选择解锁并删除。
5.如果怀疑存储器介质损坏,就需要修复磁盘之后,再操作。
只需要在磁盘图标上点右键,在磁盘属性对话框里选择磁盘查错,按提示操作即可完成。修复存储故障之后,再删除就不会报错。
6.对于文件夹访问权限的设定,导致的不可删除,这种情况很容易被忽视。若以上方法均失败。就需要观察是不是当前用户没有该文件夹的完全控制权限。需要在该文件夹图标上点右键,弹出菜单中选择安全,再将当前用户或者将everyone用户添加为完全控制。

当安装360后,在该文件夹上点右键选择“使用360强力删除”或进去在文件上点右键选择“使用360接触占用”


急需usual,typical,common,normal,ordinary,regular,average的区别_百度...
U]3.平均分,成功率[C][U]4.【商】海损 形容词 a.1.平均的[Z][B]The average age of the boys in this class is fifteen.这个班级中男生的平均年龄为十五岁。2.一般的,普通的;中等的 It was an average piece of work.那是一件普通的产品。3.【商】按海损法规估价的 及物动词 vt....

multisim中函数信号发生器怎么接
但相位相反(即相差π)。若由“+”和“-”两端输出(即“-”或“+”一端接地,另一端输出),则输出信号的幅度(峰值)是函发面板的设置值2倍。信号发生器的正输入端接C5输入口,负输入端接GND,示波器A相正输入接信号发生器输入端,示波器B相输入接U3输出口,示波器两个负是入口接GND。

求B宝common denominator和Eenie Meenie的中英文对照歌词
×eenie meenie改编自美国童谣eenie meenie 下面是原版童谣歌词。Eenie Meenie Miney Moe 【×注:Eenie Meenie Miney Moe为语气词。就好比《孤独的牧羊人》中“ 嘞哦嘞 嘞哦嘞 嘞哦嘞”一样。。。】Catch a tiger by his toe.抓住一只老虎。If he hollers let him go,如果他向你求饶就放他走。

similar the some as common like 区别
similar 相似的 词组是be similar to 也可以单独作为形容词使用 the same as一样的 A is the same as B A和B一样 common普通的,公共的,通俗的,常见的,作为形容词使用 举例:common language共同语言 有词组:have something in common有共同之处 like像 ...

common这个单词怎么才能记住
?语法记法解释常见的英式口音:['KMN?]美音:['?kɑmN]形容词à 1,普通;常见 史密斯。在英国很常见的姓氏。在英国史密斯是一个很常见的姓氏。 2在一般情况下,通常的[Z] [B] 3一起,共[Z] [(+向)]普通绑定我们的利益一起。共同利益把我们联系在一起。 4,公开,公[Z]我们都必须...

[A]common[B]quick [C] serious [D]heavy
【答案】:C 考查形容词辨义和上下文理解。由本题所在句前一句的说明(“即便一点点花生都可能要了我的命”)可知,Amanda的过敏症很“严重”,故选serious(严重的)。其余三项都不合逻辑:common指“普通的,共同的”;quick指“迅速的,快的”(它不用于修饰疾病);heavy指“重的”,它虽然可以修饰...

...有3个b,会不会有影响 本来学的是文科由于Common表上填了理科可以开...
就按 common上面走 理科 不过话说美国佬一般不会太在乎这个。B没什么 这边我们大学现在能拿C很多科目就拜神了。。只要成绩差不多就可以 美国平均分很差的

问一个FORTRAN关于全局变量的问题(可以追分哦)
这句话是:当COMMON语句指定了数组的秩和大小后,只能定义数组的类型而不能再次重复给定维界。所以对于你的错误1,是触犯了再commony已经声明了数组的秩和大小后,变量类型定义中又再次声明大小的错误。而错误2则是因为B数组只声明了公共区、秩、大小,但是没有声明类型。这就是报错的原因。然后是大的...

b英文怎么写
除了其语言学上的重要性,"B"还在日常生活中具有实际应用。它被用作各种术语和概念的缩写。例如,"B.C."代表"Before Christ"(公元前),用于表示耶稣基督诞生之前的历史年份。而"BCE"则表示"Before Common Era"(公元前通用纪年法),是对"B.C."的世俗替代。在计算机科学中,"B"具有特殊的意义,...

高中英语B篇阅读全文翻译
He was eager to get out of the (common) ruck and distinguish himself in some way.他渴望出人头地,在某方面与众不同。So,if you are a qualified nurse and tired of working in the same location,travel nursing may well be worth the consideration.所以,若你是一个有资格的护士并厌倦...

平南县15587537263: VB中如何用commondialog控件保存text文本框中的指定内容 -
窄薛泰胃: Dim txts, fn As String Private Sub Command1_Click() 'CancelError 为 True. On Error GoTo ErrHandler '设置过滤器. CD1.Filter = "All Files (*.*)|*.*|TextFiles (*.txt)|*.txt" CD1.FilterIndex = 2 '显示“打开”对话框. CD1.ShowSave fn = CD1....

平南县15587537263: vb中如何制作保存窗体 -
窄薛泰胃: 使用CommonDialog 控件 添加CommonDialog控件,则应从“工程”菜单中选定“部件”,勾选Microsoft Common Dialog Control 6.0 (SP6),将控件添加到工具箱中. 然后添加到窗体上: Option Explicit Private Sub Command1_Click() '...

平南县15587537263: vb 用CommonDialog1控件把一个指定文件保存起来 -
窄薛泰胃: 楼上的好像是打开文件吧.建一个Command1,Text1,Commondialog1, 楼主没写指定什么文件,我就保存Text1内容吧.代码如下.=========== Private Sub Command1_Click() CommonDialog1.Filter = "*.txt" CommonDialog1.ShowSave If Len(CommonDialog1.FileName) > 0 Then Open CommonDialog1.FileName For Output As 1 Print #1, Text1.Text Close MsgBox "保存完毕" End If End Sub

平南县15587537263: vb如何用commondialog的showsave保存文件 -
窄薛泰胃: 获取控件的filename属性 得到你选择的文件路径 xlSheet.SaveAs Me.CommonDialog1.FileName

平南县15587537263: vb 6.0中怎么实现保文件保存到指定路径 -
窄薛泰胃: 方法1、使用CommonDialog控件 方法2、 Open "存储文件的指定路径+文件名" For Append As #1

平南县15587537263: 如何在VB 6.0中添加和使用CommonDialog 控件 -
窄薛泰胃: 1 单击菜单“工程”下的“部件”命令,将弹出“部件”对话框,如下图所示.2 在“部件”对话框下的“控件”选项卡下选中Microsoft Common Dialog Control 6.0,单击确定既可以在左侧的控件工具箱中显示 Common Dialog控件.如下图所示3 在左侧的控件工具箱中拖拉刚才添加的Common Dialog控件到窗体中即可添加该控件.如下图所示4 再从左侧控件工具箱中拖拉一个命令按钮到窗体中,如下图所示

平南县15587537263: vb 怎么用commondialog保存picture1上的内容及选择路径 -
窄薛泰胃: With CommonDialog1 .DialogTitle = "保存图片" CommonDialog1.Filter = "All Files (*.*)|*.*|BMP Files (*.bmp)|*.bmp" CommonDialog1.FilterIndex = 2 .ShowSave End With Dim t$ t = CommonDialog1.FileName If t = "" Then Exit Sub On Error GoTo Errline VB.SavePicture Picture1.Image, t不懂请追问,满意请采纳

平南县15587537263: vb中 使用commondialog把text1的内容保存到txt -
窄薛泰胃: dim 保存文件对话框 as savefiledialog with 保存文件对话框 if .showdialog = ok then my.computer.filesystem.writealltext(.filename) end if end with

平南县15587537263: vb中用commondialog保存一文件后 该文件所在文件夹无法删除等 即句柄被该程序占用 怎么释放这个句柄? -
窄薛泰胃: 在任务管理器上,关掉句柄所在用的程序,在释放试试.

平南县15587537263: VB中CommonDialog控件如何使用? -
窄薛泰胃: CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框.运行 Windows 帮助引擎时,控件还能够显示帮助. CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll ...

你可能想看的相关专题

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网