- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 我想把这个目录改一下应该怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55486)
-- 发布时间：2014/8/17 22:49:00
-- 我想把这个目录改一下应该怎么写
For Each File As String In FileSys.GetFiles("C:\\图片\\")
Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
Dim r As Row = Tables("商品").AddNew
r("ppp") = f.name
FileSys.CopyFile(file, "d:\\图片\\" & Date.today & r("cn_name"), True)
Next
黄色的部分，我是想把文件 存存储到 d:/图片/2014/月/日/的目录下 cn_name.jpg
麻烦指点一下
-- 发布时间：2014/8/17 22:52:00
--
FileSys.CopyFile(file, "d:\\图片\\" & Format(Date.today,"YYYY\\MM\\dd\\") & r("cn_name"), True)
-- 发布时间：2014/8/18 1:05:00
--
真么晚了还在回复，真是太感动了，狐表，
