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

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

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

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的值自动合成的。