编译器总是提示“找不到路径！”晕死了！

Question

我这段程序是保存在U盘上的，上次U盘是I：盘，运行正常。
今天U盘是H：盘，编译时系统提示“找不到路径！”，于是将程序中的“I：\我的学习资料...."改为H：，
保存，再编译运行，还是提示“找不到路径!”，U盘的文件和上次比没有变化。为什么总是提示“找不到路径!”
Private Sub Form_Load()
Dim s As String
Dim timetemp As StringDim su As Integer
Dim i As Integer
Randomize
s = Date
timetemp = Time
s = s + "-" + timetemp
s = Replace(s, ":", "-")
's = "H:\我的学习资料\VB\20101113" + "\" + s + ".ini"
s = s + ".ini"Open s For Output As #1For i = 1 To 100
    su = Int(1000 * Rnd)
    Print #1, su
Next iClose #1
End Sub

Answer 1

把下面这段里面的+换成& 试试
s = s & "-" & timetemp
s = Replace(s, ":", "-")
's = "H:\我的学习资料\VB\20101113" & "\" & s & ".ini"
s = s & ".ini"

Answer 2

+换了&  还是不行，
还是提示“找不到路径！”把路径去掉，直接用s=s&".ini"也不行！
真是出了鬼了！

Answer 3

's = "H:\我的学习资料\VB\20101113" + "\" + s + ".ini"
s = s + ".ini"这两句 怎么回事儿啊，第一句在报错前注释了吗？如果注释了，s = s + ".ini"
这样是肯定找不到路径的。
如果报错前没注释第一句，干嘛在第二句那里还加个".ini"？

Answer 4

s = iif(len(app.path)>3,app.path & "\" & s & ".ini",app.path & s & ".ini")

Answer 5

's = "H:\我的学习资料\VB\20101113" + "\" + s + ".ini"
原本是没注释的，因为报错，所以注释了。
换成s=s+".ini"没路径，居然还报“找不到路径！”

Answer 6

原因终于找出了！
原来是S=date时
s里"2010/11/17"有两个“/”，将“/”替换成“-”后就对了！但是为什么我昨天使用s=date得出来的s是"2010-11-16"
今天用s=date得出来的是"2010/11/17"呢？

Answer 7

一.多加使用相对路径 app.path 可以不管H盘或I盘...二.用来当路径或文件名时 命名除了易懂还得巧妙利用格式以 2010/11/17为例, 你可以先给一个变量 例如:SeqNo 流水序号,自动加1,隔天再自动从001开始
你以时间来命名文件,我个人认为有点不太....当然得看你的需求.
日期20101117 其实不妨使用年份后两位即可, 101117 + 流水序号
因此 / - : 都可以不管了,符号尽量不要使用于路径或文件名称,以上纯属 建议.