- 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=29687)
-- 发布时间：2013/3/11 17:32:00
-- 我想识别电脑客户的文件夹照片的尺寸之和
我想识别电脑客户的一个主文件夹，比如“美图图库”，下面新增一个客户的子文件夹照片的尺寸之和？我是根据图片面积收费的。请帮手下，，，
我是想写在文件监视器里面，这个代码错在扫描地方呢？
Dim img As image = Getimage("C:\\Documents and Settings\\Administrator\\桌面\\美图图库")
output.show(img.width)
output.show(img.height)
这个代码在命令窗口还是无法输出，还有我是把每一个客户的文件，都建立在一个各自的文件夹里面。
-- 发布时间：2013/3/11 17:37:00
--
Dim mj As Long
For Each fl As String In filesys.GetFiles("C:\\Users\\Public\\Pictures\\Sample Pictures\\")
Dim img As image = Getimage(fl)
If img IsNot Nothing Then
mj = mj + img.width * img.height
End If
Next
output.show(mj)
-- 发布时间：2013/3/11 23:43:00
-- 老大，我写在表事件的DATACOLCHANED不能识别呢
老大，我写在表事件的DATACOLCHANED不能识别呢？
实现目的是：计算当前行附件列（备注型扩展为图片型）的尺寸，
代码如下：
If e.DataCol.Name = "单个产品ID的平方数" Then
Dim mj As Long
For Each fl As String In filesys.GetFiles("F:\\数据库\\管理项目\\Attachments")
Dim img As image = Getimage(fl)
If img IsNot Nothing Then
mj = mj+img.width * img.height
e.datarow("单个产品的平方数")=mj
End If
Next
End If
上述代码估计是整个目录下的尺寸，我只想计算当前行的多个附件尺寸。。。这也是问题，，，
谢谢，老大
-- 发布时间：2013/3/12 7:51:00
--
做个照片列 ,输入和照片的一样的名字,判断下.
-- 发布时间：2013/3/12 8:40:00
--
老朱，我现在已经做的一个附件列，，（备注型扩展为图片型）
-- 发布时间：2013/3/12 8:44:00
--
If e.DataCol.Name = "文件列列名" Then
Dim mj As Long
Dim nms() As String = e.DataRow("文件列列名").Replace(vbcr,vblf).split(vblf)
For Each fl As String In nms
Dim img As image = Getimage(fl)
If img IsNot Nothing Then
mj = mj+img.width * img.height
End If
Next
e.DataRow("单个产品的面积")=mj
End If
-- 发布时间：2013/3/12 9:48:00
--
老大，第一个可以扫描出来，第二行一点击增加打开就卡起，然后退出。。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单个产品id面积扫描.rar |
还有我想扫描出来的单位是平方数，再帮手下啊，呵呵，
-- 发布时间：2013/3/12 10:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:单个产品id面积扫描.rar |
-- 发布时间：2013/3/12 10:47:00
--
谢谢，老大，，，效果很好，功能很强大，，呵呵
-- 发布时间：2013/3/13 0:41:00
--
老大，本不想麻烦你的，没办法，从晚上7点搞到现在都没实现。。现在在一个窗口1中点击一个选择文件的控件，读出它们的路径名，赋值给图片表的“附件”列 ；现在附件下为路径，有可能下载后会打不开，稍微改动下
我现在已经实现单个附件的文件名提取，整个文件夹下还不行。。。
我在帮助中看到一个这个代码提示，但是我还是写不出来：
For Each File As String In FileSys.GetFiles("C:\\")
Output.Show(File)
Next
我不知道怎么样将"C:\\"替换成现在选取文件夹路径。
[此贴子已经被作者于2013-3-13 0:43:02编辑过]