主题：文件夹下存在同名文件，出错。

先删除，然后在Move

    For Each file As String In e.DataRow.Lines("材料文件")
        Dim nfile As String = ProjectPath & "Attachments\人机材基础\材料文件\" &  e.newValue & "\" & FileSys.GetName(file)
        If filesys.FileExists(nfile) Then
            FileSys.DeleteFile(nfile,2,2)
        End If
        FileSys.MoveFile(ProjectPath & "Attachments\人机材基础\材料文件\" & e.oldValue & "\" & FileSys.GetName(file),ProjectPath & "Attachments\人机材基础\材料文件\" &  e.newValue & "\" & FileSys.GetName(file))
    Next

回复3楼，参考

http://www.foxtable.com/help/topics/2209.htm

回复4楼，参考 http://www.foxtable.com/help/topics/0221.htm