VB怎样打开用户的文件

来源：百度知道 编辑：UC知道 时间：2024/05/09 20:06:27
我想弄一个删除用户文件的VB按扭。
大家都知道，每一台机的用户名都不同，我的用户名是btbbt。
比如，我想删除C:\Documents and Settings\btbbt\桌面\1.jpg，我可以用KILL语句。但如果到了其他的机子上，就已经不是“BTBBT”了。
现在我已经能查找出机子的名称了，存放在text里。
我想删除1.jpg，我写了
Kill "C:\Documents and Settings\&text1.text\桌面\1.jpg"
删除不了，这是什么问题，求一个能不同主机名里的文件的语句，谢谢
Kill "C:\Documents and Settings\" & text1.text "\桌面\1.jpg"
这个语句你试过了吗？是不行的啊！！！！

难道你text1里还得写上用户名???

On Error Resume Next

Kill "C:\Documents and Settings\" & Environ("USERNAME") & "\桌面\1.jpg"

这样就OK了

这种方法不仅支持XP,VISTA也可以

但是VISTA的桌面文件夹不在这个目录。。。

获得环境变量
Environ("USERPROFILE")

上边这种方法只能是XP以及以后WIN才可以，并且系统不一定在C盘，适合WIN的是下边的API

Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal bsName As String, ByVal buff As String, ByVal ch As Long) As Long

Function GetEnvironment(ByVal VarName As String) As String
On Error GoTo Z
Dim ret As String * 1024
Dim lResult As Long
lResult = GetEnvironmentVariable(VarName, ret, 1024)
If lResult Then
GetEnvironmen