If e.File.EndsWith(".FoxEx") Then '正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath ' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\FileList.txt") Then
FileSys.CopyFile(ppath & "\FileList.txt", APath & "\FileList.txt", True)
FileSys.DeleteFile(ppath & "\FileList.txt",2,2)
End If
End If
'msgbox(3)
If e.File.EndsWith(".FoxEx") Then '正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath ' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\RDPdemo.dll") Then
FileSys.CopyFile(ppath & "\RDPdemo.dll", APath & "\RDPdemo.dll", True)
FileSys.DeleteFile(ppath & "\RDPdemo.dll",2,2)
End If
End If
'msgbox(4)
If e.File.EndsWith(".FoxEx") Then '正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath ' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\qnviccub.dll") Then
FileSys.CopyFile(ppath & "\qnviccub.dll", APath & "\qnviccub.dll", True)
FileSys.DeleteFile(ppath & "\qnviccub.dll",2,2)
End If
End If
'msgbox(5)
If e.File.EndsWith(".FoxEx") Then '正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath ' FileSys.GetParentPath(ppath)
If FileSys.DirectoryExists(ppath & "\Voice") Then
FileSys.MoveDirectory(ppath & "\Voice", APath & "\Voice", True)
FileSys.DeleteDirectory(ppath & "\Voice",2,2)
'application.Restart
msgbox("系统配置完毕,请重启项目")
e.cancel = True
End If
End If
还是报错！
加好友 
发短信
Post By：2018/3/29 18:11:00 [只看该作者]
