主题：创建文件夹路径到控件

老师，能帮帮忙看看这个吗？就是把选择的文件复制到 ComboBox1的路径，然后把选择的文件名复制到ComboBox2，感谢 感谢 

e.Form.Controls("ComboBox1").Text = ProjectPath.Chars(0) & ":\回款\收付凭证\" & e.Form.Controls("ComboBox3").Text '生成路径
FileSys.CreateDirectory(e.Form.Controls("ComboBox1").text ) '创造一个路径,如果本来有路径就不操作,

'下面是把选择的文件复制到 ComboBox1 里面的路径
'以及吧选择的文件名 复制到ComboBox2

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    FileSys.CreateDirectory(e.Form.Controls("ComboBox1").text ) '把选择的文件复制到ComboBox1里面的路径
    e.Form.Controls("ComboBox2").Text =  FileSys.GetName(dlg.FileName) '得到被选择的文件的文件名
End If

老师，能不能再帮忙看看吗 实在是玩不转了

e.Form.Controls("TextBox10").Text = ProjectPath.Chars(0) & ":\回款\收付凭证\" & e.Form.Controls("ComboBox3").Text
FileSys.CreateDirectory(e.Form.Controls("TextBox10").text )

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    'FileSys.CopyFile(dlg.FileName, ProjectPath & "回款\收付凭证/" & e.Form.Controls("ComboBox3").Text)
    FileSys.CopyFile(dlg.FileName, ProjectPath & e.Form.Controls("TextBox10").Text)
    'FileSys.CopyFile(dlg.FileName, ProjectPath & "所有凭证\操作凭证/" & FileSys.GetName(dlg.FileName), True)
    e.Form.Controls("TextBox7").Text =  FileSys.GetName(dlg.FileName)
End If

老师，为什么把路径换成列里面的路径就不能用了呀，感谢 感谢 

Dim Proc As New Process '定义一个新的Process

可以了 谢谢老师