VB选择文件保存到指定文件夹

Posted 2023-04-17 hack747

另类保存到指定文件夹

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Label1 = CommonDialog1.FileName
Label2 = CommonDialog1.FileTitle
End Sub

Private Sub Command2_Click()
\'Shell "cmd.exe /c copy c:\\1.txt d:\\", 1
FileCopy CommonDialog1.FileName, "D:\\VBMD\\影音\\" + CommonDialog1.FileTitle
MsgBox "添加成功!"
End Sub

 

vb6保存项目到c盘的安装目录

工程保存在安装目录（"C:\\Program Files (x86)\\Microsoft Visual Studio\\VB98\\errhandler1.vbp"）里。

文件管理器找不到这个文件，用vb菜单打开的文件列表对话框里能找到这个文件，文件上有一个锁。

好奇怪，查看文件属性所有人。提示无法显示当前所有人。

文件可以被删除。

本来这个目录不用管理员权限是禁止写入的。似乎是写入了，不过只在vb6的打开对话框里能找到。奇怪