我想识别电脑客户的文件夹照片的尺寸之和 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想识别电脑客户的文件夹照片的尺寸之和

共有8741人关注过本帖树形打印复制链接主题：我想识别电脑客户的文件夹照片的尺寸之和

ykseawind

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：55 积分：534 威望：0 精华：0 注册：2013/1/5 14:30:00

我想识别电脑客户的文件夹照片的尺寸之和 发帖心情

Post By：2013/3/11 17:32:00 [只看该作者]

我想识别电脑客户的一个主文件夹，比如“美图图库”，下面新增一个客户的子文件夹照片的尺寸之和？我是根据图片面积收费的。请帮手下，，，

我是想写在文件监视器里面，这个代码错在扫描地方呢？

Dim img As image = Getimage("C:\Documents and Settings\Administrator\桌面\美图图库")

output.show(img.width)

output.show(img.height)

这个代码在命令窗口还是无法输出，还有我是把每一个客户的文件，都建立在一个各自的文件夹里面。

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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)

ykseawind

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：55 积分：534 威望：0 精华：0 注册：2013/1/5 14:30:00

老大，我写在表事件的DATACOLCHANED不能识别呢 发帖心情

Post By：2013/3/11 23:43:00 [只看该作者]

老大，我写在表事件的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

上述代码估计是整个目录下的尺寸，我只想计算当前行的多个附件尺寸。。。这也是问题，，，

谢谢，老大

blackzhu

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/3/12 7:51:00 [只看该作者]

做个照片列 ,输入和照片的一样的名字,判断下.

ykseawind

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：55 积分：534 威望：0 精华：0 注册：2013/1/5 14:30:00

Post By：2013/3/12 8:40:00 [只看该作者]

老朱，我现在已经做的一个附件列，，（备注型扩展为图片型）

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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