主题：麻烦看看啥问题吧

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:商品管理.foxdb

此主题相关图片如下：捕获2.jpg


此主题相关图片如下：捕获1.jpg

 

 

程序显示这两个错误，麻烦给看看啥问题吧。谢谢了！！

Button4

 

For Each File1 As String In FileSys.GetFiles("D:\shuiyin\")
    Dim s As String = FileSys.GetName(File1)
    Dim img As Image = getimage(file1)
   
    If img IsNot Nothing Then
        Dim g As Graphics = Graphics.FromImage(img)
        Dim o1 As String= s.SubString(0,s.LastIndexOf("."))
        Dim fnt As New Font("georgia",25)
        Dim sz As Object = g.MeasureString(s, fnt)
        g.DrawString(o1,fnt,Brushes.MediumSpringGreen, img.Width - sz.Width - 20, Img.Height - sz.Height - 20)
        img.Save(file1)
        g.Dispose()
       
    End If
Next

 Button1，各个文件夹和文件名，必须有值

 

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
    Dim s As String = f.name
   
    FileSys.CopyFile(file, "D:\as\" & s & ".jpg",True )
    FileSys.CopyFile(file, "D:\taobao\" & s & ".tbi",True )
   
Next
FileSys.CopyDirectory("D:\as", "D:\shuiyin\")

 

回复  ：Button1，各个文件夹和文件名，必须有值

 

这里ppp是原来图片的名称，

我想在复制文件的到时候，用cn_name做为新的名字，转到新的文件夹内as或者tabobao内。

所以s 的值应该是cn_name

 

顺便说一下，cn_name 是根据时间和ppp的值自动合成的。

 

 

 回复4楼，你要确保 s 的值不是空值，你msgbox看一下吧msgbox(s)