| 以文本方式查看主题 - 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=94811) |
| -- 作者：yangwenghd -- 发布时间：2017/1/3 8:23:00 -- 为什么不日期列作为文件夹不对呢 Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 FileSys.CopyFile(dlg.FileName, ProjectPath & "相关图片\\& "日期列" & FileSys.GetName(dlg.FileName), True) Tables("计划表窗口_Table5").Current("相关图片") = FileSys.GetName(dlg.FileName) End If
|
| -- 作者：有点色 -- 发布时间：2017/1/3 9:44:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(dlg.FileName, ProjectPath & "相关图片\\" & Tables("表A").Current("日期列") & "\\" & FileSys.GetName(dlg.FileName), True)
Tables("计划表窗口_Table5").Current("相关图片") = FileSys.GetName(dlg.FileName)
End If
|
| -- 作者：yangwenghd -- 发布时间：2017/1/3 14:25:00 -- 谢谢 谢谢 可以把年月日为一个文件夹一个名称吗 把日期列的内容为一个文件夹 比如日期列为 2017-1-3 就在相关文件 文件夹 下建立一个 2017-1-3 文件夹，然后添加的图片也在里面 感谢 感谢
|
| -- 作者：有点色 -- 发布时间：2017/1/3 14:29:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(dlg.FileName, ProjectPath & "相关图片\\" & Tables("表A").Current("日期列") & "\\" & FileSys.GetName(dlg.FileName), True)
Tables("计划表窗口_Table5").Current("相关图片") = Tables("表A").Current("日期列") & "\\" & FileSys.GetName(dlg.FileName)
End If |
| -- 作者：yangwenghd -- 发布时间：2017/1/3 15:25:00 -- 还是一样的呢，没什么变化呢，感谢 感谢 |
| -- 作者：有点色 -- 发布时间：2017/1/3 15:26:00 -- 理解4楼代码，只要代码执行不报错，肯定就创建和复制了图片 |
| -- 作者：yangwenghd -- 发布时间：2017/1/3 15:42:00 -- 是的 创建了的 只是 想 以整个日期为文件名 可以不把年 月 日分开吗？ 感谢 感谢 |
| -- 作者：有点色 -- 发布时间：2017/1/3 16:28:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(dlg.FileName, ProjectPath & "相关图片\\" & Tables("表A").Current("日期列") & FileSys.GetName(dlg.FileName), True)
Tables("计划表窗口_Table5").Current("相关图片") = FileSys.GetName(dlg.FileName)
End If
|
| -- 作者：yangwenghd -- 发布时间：2017/1/3 17:54:00 -- 感谢 感谢 还是分开了的呢 感谢 |
| -- 作者：有点色 -- 发布时间：2017/1/3 17:57:00 -- 无法理解你的意思。自己看懂代码。 |