Question

vb6.0新建excel写入内容并保存到桌面，如何获取不同电脑通用的桌面路径？

Answer 1

Win7和XP的USERPROFILE文件路径是不同的，XP的是C:\Documents and Settings\All Users，可以据此相对容易的判断用户是否为XP操作系统，而如果通过编写获取用户桌面路径的代码会很冗长和麻烦。代码如下：Dim path , getpath , allusers$
path = Environ("USERPROFILE")
allusers = Environ("ALLUSERSPROFILE")
If allusers = "C:\Documents and Settings\All Users" Then
getpath = path & "\桌面\"
Else
getpath = path & "\Desktop\"
End If这样就可以获取Win7和XP的桌面路径了