主题：麻烦看看啥问题吧

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\")

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