| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 创建文件夹路径到控件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145791) |
| -- 作者：yangwenghd -- 发布时间：2020/2/7 14:14:00 -- 创建文件夹路径到控件 老师，能帮帮忙看看这个吗？就是把选择的文件复制到 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 |
| -- 作者：有点蓝 -- 发布时间：2020/2/7 15:01:00 -- 复制文件参考：http://www.foxtable.com/webhelp/topics/0342.htm |
| -- 作者：yangwenghd -- 发布时间：2020/2/7 15:42:00 -- 老师，能不能再帮忙看看吗 实在是玩不转了 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 |
| -- 作者：有点蓝 -- 发布时间：2020/2/7 16:45:00 -- If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 e.Form.Controls("TextBox7").Text = FileSys.GetName(dlg.FileName) FileSys.CopyFile(dlg.FileName, e.Form.Controls("TextBox10").Text & "\\" & e.Form.Controls("TextBox7").Text) End If
|
| -- 作者：yangwenghd -- 发布时间：2020/2/7 18:00:00 -- 老师，为什么把路径换成列里面的路径就不能用了呀，感谢 感谢 Dim Proc As New Process \'定义一个新的Process \'Proc.File = ProjectPath & "所有凭证\\操作凭证/" & Tables("汇款记录查询窗口_Table1").Current("收款凭证")Proc.File = ProjectPath & Tables("汇款记录查询窗口_Table1").Current("凭证路径") & Tables("汇款记录查询窗口_Table1").Current("收款凭证") Proc.Start() |
| -- 作者：有点蓝 -- 发布时间：2020/2/7 20:02:00 -- msgbox(ProjectPath & Tables("汇款记录查询窗口_Table1").Current("凭证路径") & Tables("汇款记录查询窗口_Table1").Current("收款凭证")) |
| -- 作者：yangwenghd -- 发布时间：2020/2/7 21:15:00 -- 可以了 谢谢老师 [此贴子已经被作者于2020/2/7 21:16:08编辑过]
|