Foxtable(狐表)用户栏目专家坐堂 → 怎样实现获取当前表图片列A当前行的图片文件的创建日期?


  共有2661人关注过本帖树形打印复制链接

主题:怎样实现获取当前表图片列A当前行的图片文件的创建日期?

帅哥哟,离线,有人找我吗?
comnets
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:698 积分:5618 威望:0 精华:0 注册:2013/4/9 6:59:00
怎样实现获取当前表图片列A当前行的图片文件的创建日期?  发帖心情 Post By:2018/1/24 17:57:00 [只看该作者]

帮助里的
Dim ifo As new FileInfo("c:\data\123.xls")

Output.Show("文件创建时间:" & ifo.CreationTime)

Output.Show("上次修改时间:" & ifo.LastWriteTime)

Output.Show("上次访问时间:" & ifo.LastAccessTime)

Output.Show("是否只读:" & ifo.ReadOnly)

Output.Show("是否隐藏:" & ifo.Hidden)

output.Show("文件路径:" & ifo.Path)

Output.Show("文件大小:" & ifo.Length)

Output.Show("文件名称:" & ifo.Name)

Output.Show("扩展名:" & ifo.Extension)

是对知道路径的文件的吧?怎样改一下?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/24 18:07:00 [只看该作者]

合成路径。如果你的图片放在 attachments 文件夹,就这样写

 

Dim ifo As New FileInfo(ProjectPath & "attachments/" & Tables("表a").Current("第一列"))


 回到顶部
帅哥哟,离线,有人找我吗?
comnets
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:698 积分:5618 威望:0 精华:0 注册:2013/4/9 6:59:00
  发帖心情 Post By:2018/1/25 11:33:00 [只看该作者]

图片点击可在新窗口打开查看
现在想得到照片的拍摄日期怎么写?
不是文件的创建日期。
因为是这样获取到的是照片文件复制到attchments文件夹里的时间。
现在需要的是获得照片的拍摄时间。


 回到顶部
帅哥哟,离线,有人找我吗?
comnets
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:698 积分:5618 威望:0 精华:0 注册:2013/4/9 6:59:00
  发帖心情 Post By:2018/1/25 12:07:00 [只看该作者]

找到了这个
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78730&replyID=&skin=1

Dim img As Image = Image.FromFile("I:\图像文件.jpg")
Dim pt As PropertyItem() = img.PropertyItems
For i As Integer = 0 To pt.Length - 1
    Dim p As PropertyItem = pt(i)
    Select Case pt(i).Id
        Case &H132
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("修改时间:  " & s)
            Output.Show("")
        Case &H9003
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("拍摄时间:  " & s)
            Output.Show("")
        Case &H110
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("相机型号:  " & s)
            Output.Show("")
        Case &H10F
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("制造商:  " & s)
            Output.Show("")
            
        Case  &H131
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("修改软件:  " & s)
            Output.Show("")   
            
    End Select
Next

Dim 图像高度 As Integer = img.Height.ToString()
Output.Show("图像高度:  " & 图像高度 & " DPI" )
Dim 图像宽度 As Integer = img.Width.ToString()
Output.Show("图像宽度:  " & 图像宽度  & " DPI" )


怎样把它改成A表的B列当前行读取相片的拍摄日期?


 回到顶部
帅哥哟,离线,有人找我吗?
comnets
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:698 积分:5618 威望:0 精华:0 注册:2013/4/9 6:59:00
  发帖心情 Post By:2018/1/25 13:04:00 [只看该作者]

up

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 13:09:00 [只看该作者]

Dim img As Image = Image.FromFile(ProjectPath & "attachments/" & Tables("表a").Current("第一列"))

 回到顶部
帅哥哟,离线,有人找我吗?
comnets
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:698 积分:5618 威望:0 精华:0 注册:2013/4/9 6:59:00
  发帖心情 Post By:2018/1/25 21:24:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部