str是关键字,换一个变量试试。
Private Sub Command1_Click()str1="d:\temp"
aa$= Dir("d:\temp", vbDirectory)
bb$= Dir(str1, vbDirectory)End Sub
Private Sub Command1_Click()str1="d:\temp"
aa$= Dir("d:\temp", vbDirectory)
bb$= Dir(str1, vbDirectory)End Sub
解决方案 »
- 如何在网页上实现曲线图的缩放拖拉 有点急 望各位大侠给予帮助 不胜感激
- 请问,我建立一个activeX程序,怎样引用winsock控件呀?
- datareport???
- 求助怎样把matlab里的specgram()的函数该写成Vb里函数
- 南京搞vb软件开发的工资是大概多少??
- API Hook,请问谁能提供
- 谁有True DBGrid 5.0 控件的安装程序
- 如何得到COMBO中当前处于焦点状态的DROP LIST项的值?
- 在win98下装visual studio6.0,vb怎不支持Ado2.2以上的版本
- VBA中如何Post Json
- 十六进制如何转化为十进制输出
- 一个表的一行删除掉,使得新表某列仍按原先排序连续?
aa$ = Dir("d:\temp", vbDirectory)
bb$ = Dir(Str1, vbDirectory)
Debug.Print aa
Debug.Print bb
End Sub来晚了,楼上正确
我将vbDirectory改为16后,问题得以解决。怪怪怪!
(“str是关键字,换一个变量试试。”只是我举错例子。)