大家看看这两段代码功能一样吗?
代码1:
for each name as string in my.computer.filsystem.getfiles _ (my.computer.filsystem.specialdirectories.mydocuments)
list.items.add(name) 'list是列表框
next
代码2:
for each name as string in my.computer.filsystem.getfiles _ (system.enviroment.getfolderpath _(system.enviroment.specialfolder.mydocuments))
list.items.add(name) 'list是列表框
第二个代码运行的时候没反映
但是这两个代码看起来功能一样啊!
[解决办法]
我试了一下,可以用啊,不过楼主拼错好多啊。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Each name As String In My.Computer.FileSystem.GetFiles _
(System.Environment.GetFolderPath _
(System.Environment.SpecialFolder.MyDocuments))
ListBox1.Items.Add(name)
Next
End Sub