主题：批量更改文件名

 改名，直接设置fileName即可。

 参考知识 http://www.foxtable.com/help/topics/0342.htm

你所说的导入，和你说的事件有半毛钱关系，直接复制的时候改名。

For Each File As String In FileSys.GetFiles("C:\图片\")
    Dim f As Io.FileInfo =   FileSys.GetFileInfo(File)
    Dim r As Row = Tables("priduct").AddNew
    r("ppp") = f.name
    FileSys.CopyFile(file, "d:\图片\" & user.Name & f.name, True)
    'FileSys.MoveFile(file, "d:\图片\" & user.Name & f.name)
Next