Select Case Environ("OS")
Case "Windows_NT"
Destination = Environ("userprofile") & "\桌面"
Case "Windows_98", "Windows_95"
Destination = Environ("userprofile") & "\desktop"
Case Else
End Select
我只装了win2000，不知道其它版本windows如何。请帮助调试修改以上代码，使之适用于95~xp之间所有版本。谢谢。
另外请教curdir的用法。它能返回所执行的exe文件(在该exe文件内使用curdir)所在的目录吗？
置顶卡
