主题：这是一个文本文件加密程序。请高手看看那儿有问题。调试的时候提示说找不到文件
hoaier
[专家分：0] 发布于 2010-02-26 23:12:00
Private Sub Form_Load()
FileName$ = InputBox("请输入需要加密的文件名及路径：")
Open FileName$ For Input As #1
Line Input #1, yw$
Close #1
xw$ = ""
n = Len(yw$)
For i = 1 To n
yz$ = Mid$(yw$, i, 1)
xz$ = Chr(Asc(yz$) - 10)
xw$ = xw$ & xz$
Next
Open FileName$ For Output As #1
Print #1, xw$
Close #1
MsgBox "加密已经完成！"
End
End Sub
回复列表 （共3个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2010-02-28 16:28:00
找不到文件
那就是你输入的文件路径不对。
建议不要使用inputbox来输入文件路径和文件名
转而采用“公共对话框控件”让用户如同在windows里使用“打开”对画框一样选择文件。
板凳
louboutin [专家分：0] 发布于 2010-03-05 15:26:00
[url=http://www.bootboots.com]ugg boots[/url]
[url=http://www.salelouboutin.com]christian louboutin[/url]
[url=http://www.buylouboutin.com]louboutin[/url]
[url=http://www.bootboots.com]cheap ugg boots[/url]
[url=http://www.bootboots.com]discount ugg boots[/url]
[url=http://www.bootboots.com]ugg boots sale[/url]
[url=http://www.bestlouisvuitton.com]lv handbags[/url]
[url=http://www.sale-mbt.com]mbt shoes[/url]
[url=http://www.discount-christianlouboutin.com]christian louboutin[/url]
3 楼
louboutin [专家分：0] 发布于 2010-03-05 15:26:00
[url=http://www.bootboots.com]ugg boots[/url]
[url=http://www.salelouboutin.com]christian louboutin[/url]
[url=http://www.buylouboutin.com]louboutin[/url]
[url=http://www.bootboots.com]cheap ugg boots[/url]
[url=http://www.bootboots.com]discount ugg boots[/url]
[url=http://www.bootboots.com]ugg boots sale[/url]
[url=http://www.bestlouisvuitton.com]lv handbags[/url]
[url=http://www.sale-mbt.com]mbt shoes[/url]
[url=http://www.discount-christianlouboutin.com]christian louboutin[/url]
我来回复
您所在位置：