以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码为何不起作用？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78827)
--  作者：wyz20130512
--  发布时间：2015/12/17 20:41:00
--  [求助]代码为何不起作用？
Dim dlg As New OpenFileDialog
dlg.Filter = "Word文件|*.doc"
dlg.MultiSelect = True
Dim files() As String = dlg.FileNames
If dlg.ShowDialog = DialogResult.OK Then
    Dim fb_dlg As New FolderBrowserDialog
    If fb_dlg.ShowDialog = DialogResult.OK Then
        msgbox(1)
        For Each file As String In files
            msgbox(2)
            FileSys.CopyFile(file,fb_dlg.SelectedPath & "\\" & FileSys.GetName(file),True)
        Next
    End If
End If

以上代码为何不起作用？只运行至msgbox(1)就停止了？
--  作者：大红袍
--  发布时间：2015/12/17 20:43:00
--  
Dim files() As String = dlg.FileNames
If dlg.ShowDialog = DialogResult.OK Then

 

改成

 

If dlg.ShowDialog = DialogResult.OK Then
    Dim files() As String = dlg.FileNames
--  作者：wyz20130512
--  发布时间：2015/12/17 20:46:00
--  回复：（大红袍）Dim files() As String = dlg.FileNa...
哦！明白了，此时dlg.FileNames 还没生成，是不是？

真的很感谢“大红袍”老师的指点，及时 准确！
[此贴子已经被作者于2015/12/17 20:49:19编辑过]