Question

如何修改VB程序检查是否存在一个文件。

这是一个VB制作的管理系统。别人写的。
数据库路径保存在一个.dat文件中：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False

然后在登陆的时候需要调用这个信息，是一个Command_Click()触发的：
Open App.Path & "\local.dat" For Input As #1
Input #1, My_DATASOURCE
现在我如何使用 My_DATASOURCE 来检查其中调用来的数据库文件是否存在？

Answer 1

if dir(my_datasource)<>"" then
存在
else
不存在
endif

Answer 2

的引用给你的想法：

密码文件的后缀不具有TXT，您可以：
文件名= App.Path +“\的password.txt”
改变任何常见的后缀：
文件名= App.Path + \ password.mima“
还是可以，这是最初级的”加密“塑造因为在WIN TXT太无事
改变MIMA大多数人不使用常见的软件来打开它
当然，这个方法必须符合2:00或无用

密码通过加密操作，然后保存您的密码文件，下面的 BR />提供您一个简单的加密码的代码，根据您的要求改就行了：

雷姆XOR操作
功能的加密和解密代码（SRC（）字节，键（）作为字节）字节（）
暗淡了（）作为字节
点心我长
点心j为龙
昏暗的K表，只要
点心l由于长期
K = UBound函数（SRC）
L = UBound函数（键）
REDIM为（k）
J = 0
对于i = 0到k BR /> A（I）= SRC（我）XOR键（J）
J = J + 1
如果J> L则j = 0
接下来，我
代码=一个

：私人小组form_click（）
暗淡了（）作为字节
尺寸B（），字节
昏暗的C（）作为字节的功能
=“用于加密的密码
B =”密码“
打印”明文加密前一个
=代码（A，B）“原密码XOR加密
打印加密的密文，一个
=代码（A，B）的密文密码XOR，解密
打印“解密后的明文：”一个
END SUB

你可以存储加密的密文App.Path +“\ password.mima”
为了实现一个主要的加密算法！

Answer 3

检查检查