Dim ftp1 As New FtpClient
ftp1.Host="116.62."
ftp1.Account = "z**"
ftp1.Password = "zjz**"
Select Case e.DataCol.Name
Case "资料类型"
'=====本地文件=======
Dim owjpth As String = "D:\图集规范\" & e.OldValue & "\" & dr("工程类型") & "\" & dr("分部工程") & "\" & dr("标准名称")
Dim nwjpth As String = "D:\图集规范\" & e.NewValue & "\" & dr("工程类型") & "\" & dr("分部工程") & "\" & dr("标准名称")
If FileSys.FileExists(owjpth) Then
FileSys.CopyFile(owjpth,nwjpth,True)
FileSys.DeleteFile(owjpth,2,3)
End If
'=====ftp文件=======
Dim fowjpth As String = "\图集规范\" & e.OldValue & "\" & dr("工程类型") & "\" & dr("分部工程") & dr("标准名称")
Dim fnwjpth As String = "\图集规范\" & e.NewValue & "\" & dr("工程类型") & "\" & dr("分部工程") & dr("标准名称")
If ftp1.DirExists(fowjpth) = False Then '判断指定的目录不存在
ftp1.MakeDir(fnwjpth) '在ftp上创建目录
End If
If ftp1.FileExists(fowjpth) Then
ftp1.Rename(fowjpth,fnwjpth)
'msgbox(1111)
End If
Case "工程类型"
Dim owjpth As String = "D:\图集规范\" & dr("资料类型") & "\" & e.OldValue & "\" & dr("分部工程") & "\" & dr("标准名称")
Dim nwjpth As String = "D:\图集规范\" & dr("资料类型") & "\" & e.NewValue & "\" & dr("分部工程") & "\" & dr("标准名称")
If FileSys.FileExists(owjpth) Then
FileSys.CopyFile(owjpth,nwjpth,True)
FileSys.DeleteFile(owjpth,2,3)
End If
Case "分部工程"
Dim owjpth As String = "D:\图集规范\" & dr("资料类型") & "\" & dr("工程类型") & "\" & e.OldValue & "\" & dr("标准名称")
Dim nwjpth As String = "D:\图集规范\" & dr("资料类型") & "\" & dr("工程类型") & "\" & e.NewValue & "\" & dr("标准名称")
If FileSys.FileExists(owjpth) Then
FileSys.CopyFile(owjpth,nwjpth,True)
FileSys.DeleteFile(owjpth,2,3)
End If
Case "标准名称"
Dim owjpth As String = "D:\图集规范\" & dr("资料类型") & "\" & dr("工程类型") & "\" & dr("分部工程") & "\" & e.OldValue
Dim nwjpth As String = "D:\图集规范\" & dr("资料类型") & "\" & dr("工程类型") & "\" & dr("分部工程") & "\" & e.NewValue
If FileSys.FileExists(owjpth) Then
FileSys.CopyFile(owjpth,nwjpth,True)
FileSys.DeleteFile(owjpth,2,3)
End If
End Select
加好友 
发短信
Post By：2018/11/19 14:54:00 [只看该作者]
