Dim dlg As New FolderBrowserDialog
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")
If dlg.ShowDialog = DialogResult.Ok Then
e.Sender.value = dlg.SelectedPath ‘这条获取目录名’
Dim n As Integer = 0
n = FileSys.GetFiles(e.Sender.value).Count
t3.Value = "该目录下共有" & n & "个文件"
End If
获取全部文件名 FileSys.GetFiles(dp2.Value)
[此贴子已经被作者于2023/5/13 5:35:12编辑过]