Private Sub Form_Load()
On Error Resume Next
Me.Text1.Text = ""
Dim MyShell As New Shell
Dim I As Long
For I = 0 To 22
Me.Text1.Text = Me.Text1.Text & vbCrLf & I & "……" & MyShell.NameSpace(I) & "……" & MyShell.NameSpace(I).Self.Path
Next
End Sub
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! | |||
作者: | 用户:
密码: 注册? 验证: |
||
评论:
禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
|||