VB文件夹 文件夹操作
发布网友
发布时间：2022-04-22 14:54
共1个回答
热心网友
时间：2023-09-23 05:47
Dim s As String, t As Integer
Private Sub Dir1_Change()
If UBound(Split(Dir1.Path, "\")) < t Then Dir1.Path = s
End Sub
Private Sub Form_Load()
Dir1.Path = App.Path '设置指定操作文件夹，这里是程序所在目录
s = Dir1.Path
t = UBound(Split(s, "\"))
End Sub
补充回答：
这个似乎就和你一开始的要求有冲突了。如果这个文件夹是指定文件夹的子文件夹，那么你可以通过dirlistbox随意操作，如果不是，那么根据你的要求，就不能随意打开。如果你的意思是指任意设置指定的目录，那么我在上面的程序中也有说明了，只要给dir1.path赋值即可（比如Dir1.Path = "D:\CRT"），方法有多种（包括读取文件中保存的路径名等），但不管用什么方法，都不能够在程序界面上给用户任意选择，否则你开始的那些要求就没意义了。
