VB文件夹 文件夹操作
发布网友
发布时间:2022-04-22 14:54
我来回答
共1个回答
热心网友
时间:2023-09-23 05:47
窗体上放置一个DirListBox控件
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"),方法有多种(包括读取文件中保存的路径名等),但不管用什么方法,都不能够在程序界面上给用户任意选择,否则你开始的那些要求就没意义了。