以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件列的容错语句怎么写?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154394)

--  作者:旭日生
--  发布时间:2020/9/13 23:30:00
--  文件列的容错语句怎么写?

图片点击可在新窗口打开查看此主题相关图片如下:image 2.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test2.foxdb


[此贴子已经被作者于2020/9/13 23:30:54编辑过]

--  作者:有点蓝
--  发布时间:2020/9/14 8:36:00
--  
判断文件是否存在:http://www.foxtable.com/webhelp/topics/0337.htm,比如:

        Dim file As String =   e.DataRow("路径文件名")
        If FileSys.FileExists(file) Then
            Dim img As image = getImage(file)
……

--  作者:旭日生
--  发布时间:2020/9/14 16:01:00
--  
谢谢蓝版,原来如此简单。
       Dim file As String =   e.DataRow("路径文件名")
        \'        MessageBox.Show(file)
        If FileSys.FileExists(file) Then
            Dim img As image = getImage(file)
            Dim PICH As Integer = img.Height.ToString()
            Dim PICW As Integer = img.Width.ToString()
            If file.EndsWith(".jpg") OrElse file.EndsWith(".png") Then
                \'    If  PICH > 0 AndAlso PICW >0 Then
                e.DataRow("图像大小")= PICH & "*" & PICW & "DPI"
                
            End If
        Else
            e.DataRow("图像大小") = " "
            \'            MessageBox.Show(4)
        End If