-- 作者:lihe60
-- 发布时间:2013/10/28 14:05:00
-- 这个提示是为什么?
DecryptFile(ProjectPath & "attachments\\4.txt",ProjectPath & "attachments\\3.txt", "fox123") Dim s As String=FileSys.ReadAllText(ProjectPath & "attachments\\3.txt", Encoding.Default) FileSys.DeleteFile(ProjectPath & "attachments\\3.txt",2,2) \'则彻底删除之 If Connections.TryConnect(s) = True Then e.ConnectionString = s Else e.C End If 此主题相关图片如下:函数.bmp
|