KILL删除文件问题

[shadamuiii]

我的EXE程序产生了一个控件comdlg32.ocx，我想在UNLOAD时删除掉，用了语句Kill (App.Path & "\comdlg32.ocx")
编译产生的EXE程序在本机上可以删除该文件，但是复制到其他机器上运行时却出现“路径访问错误”，（但是我能看到在EXE同目录下有这个文件在那里）我这是为什么？请高手们指教。

[shadamuiii]

我生成的EXE文件在本机上运行时确实可以删除此控件，但是换机后就发生实时错误“路径访问错误”。这是怎么回事？

[东方之珠]

comdlg32.ocx,这个是操作系统使用的通用对话框，不能删除。
一般来说，这个控件在：c:\windows\system32下面，你的打包程序将这个文件打进去后也会安装到这个位置。如果安装到了其他位置，也不能删除，这是系统控件。

[chenhui530]

不能删除是因为那个时候还没完全释放
你到更后面一个事件试试看
比如Terminated

[嗷嗷叫的老马]

不用这个控件不就得了.

API实现吧.

[嗷嗷叫的老马]

http://www.google.cn/search?num=50&complete=1&hl=zh-CN&newwindow=1&q=%E5%97%B7%E5%97%B7%E5%8F%AB%E7%9A%84%E8%80%81%E9%A9%AC+%E4%BB%A3%E6%9B%BF%E9%80%9A%E7%94%A8%E5%AF%B9%E8%AF%9D%E6%A1%86&meta=&aq=f

这里有个完整的类,可以直接代替通用对话框控件,用法都是一样:

http://www.m5home.com/bbs/dispbbs.asp?boardID=10&ID=1100&page=1

账号:

everyone

密码:

123456

新建个工程,添加这个类模块,然后加入这个代码就可以看到效果:

  Private   Sub   Form_Load()   
          Dim   comDlg   As   DialogCls   
    
          Set   comDlg   =   New   DialogCls   
          With   comDlg   
                  .ShowOpen   
                  .ShowColor   
                  .ShowFont   
                  .ShowOpenPreview   
                  .ShowPageSetupDlg   
                  .ShowPrinter   
                  .ShowSave   
                  .ShowSavePreview   
          End   With   
  End   Sub

[ftz820127]

你复制到别的地方是不是根目录下，如果是你的路径就写错了，要是不是可能就是被调用着吧
App.Path 如果在根目录 下反回值本身就是带有"\"的