vb6.0新建excel写入内容并保存到桌面,如何获取不同电脑通用的桌面路径?
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的桌面路径了
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的桌面路径了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询