骗历局域网共享文件夹下面文件问题。

本帖最后由 suxiong 于 2013-11-23 17:51 编辑

  1. Private Sub CommandButton1_Click()

  2. Dim Filename As String, mypath As String, k As Integer

  3. mypath = '\\192.168.0.100\TEST\A\宏站\HZ0001'

  4. Filename = Dir(mypath& '*.jpg')   'DIR可以显示相应文件夹下面文件的名字

  5. Do

  6. ListBox1.AddItem Filename

  7. Filename = Dir   '在再=一次是因为不段的把文件放进行（不懂）

  8. Loop Until Filename = ''

  9. End Sub

赞 (0)

相关推荐