我要随机生成的是带点文件夹，怎么失败了。

Private Sub Form_Load()
Dim a As Double
a = Rnd
Shell "md f:\" & a & "..\\"
End Sub

提示：文件未找到。

Private Sub Form_Load()
Dim a As Double
Randomize
a = Rnd
Shell "cmd /c md ""f:\" & a & """"
End Sub

咯咯
我是菜鸟，能帮我解释一下吗？

[ 本帖最后由 yuma 于 2010-11-18 20:38 编辑 ]

Private Sub Form_Load()
Dim a As Double
Randomize
a = Rnd
Shell "cmd /c md ""f:\" & a & "..\\"
End Sub

最终结果是这样了。

Randomize    是干什么的？

Private Sub Form_Load()
Dim a As Double
Randomize                                '以时间序初始化随机数字发生器。 时间序为种子数
a = Rnd      
Shell "cmd /c md ""f:\" & a & "..\\"     'md 命令是命令行内部命令，内部命令是在 命令行外壳里的。所以需要执行 CMD 。 /c 意思是执行完当前命令后退出CMD。
End Sub

谢谢。

怎么样删除这样生成的文件？怎么删除不了了，

用rd命令删除。

rd f:\文件夹名称..\\

 

[ 本帖最后由 yuma 于 2010-11-24 20:56 编辑 ]