VB6问题 If Dir("D:\forPrinter\N1.txt") <> "" Then

xiangtaochen · 发表于 2018-9-6 21:54:03

If Dir("D:\forPrinter\N1.txt") <> "" Then

这个N1的1能不能搞成个变量, 怎么表达?

jimlovecat · 发表于 2018-9-6 21:55:15

dim DirStr as string

xiangtaochen · 发表于 2018-9-6 21:56:16

jimlovecat 发表于 2018-9-6 21:55
dim DirStr as string

我要从1可以变成2,3,4,5,6,7,8,9,.....你这个是把这个整个转字符串了吧

jimlovecat · 发表于 2018-9-6 22:00:26

vb很久没用了，供参考 dim DirStr as string DirStr="D:\forPrinter\"+txt1.txt+".txt"

xiangtaochen · 发表于 2018-9-6 22:00:31

jimlovecat 发表于 2018-9-6 21:55
dim DirStr as string

我明白了

jimlovecat · 发表于 2018-9-6 22:01:56

有个命令是数字转字符串，vb语言手册查一下

SkyGz · 发表于 2018-9-6 22:08:22

是不是要这样

dim i as integer

for i=0 to 10
  if dir("D:\forPrinter\N"+Cstr(i)+".txt") <>"" then

  end if
next i

dong889 · 发表于 2018-9-6 22:11:35

"D:\forPrinter\N" & a & ".txt"
这样就可以了，a为变量

xiangtaochen · 发表于 2018-9-7 10:54:57

dong889 发表于 2018-9-6 22:11
"D:\forPrinter\N" & a & ".txt"
这样就可以了，a为变量

这样没有搞成, 我哥只要10个, 我直接写了10次, 呵呵

modbus · 发表于 2018-9-7 12:06:53

用数值转换为字符串函数和字符串连接即可完成

阿莫论坛20周年了！感谢大家的支持与爱护！！