Eliminar con el nombre usuario

[sp26]

Hola nuevamente 

Quisiera saber como eliminar dependiendo del usuario, por ejemplo:

Código [Seleccionar] Expandir

If (Dir("c:\documents and settings\USUARIO\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\USUARIO\prueba.txt"
End If


Ya intente con una API:

Código [Seleccionar] Expandir


'API
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

Public Function UsuarioActual() As String
    'Esta función devuelve el nombre del Usuario
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String

    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    UsuarioActual = sUsuario
   
End Function


Y poniendo:

Código [Seleccionar] Expandir



If (Dir("c:\documents and settings\UsuarioActual\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\UsuarioActual\prueba.txt"
End If '



Por declaro de la API, se supone que UsuarioActual, localiza el nombre.



Ayuda 

[WarGhost]

Código [Seleccionar] Expandir

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt"
End If

[sp26]

Pero si esta en otro directorio, como hago?? (Disculppa la ignorancia :S)


Por ejemplo

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "Escritorio\prueba.txt"
End If

(Y asi como otra carpeta, como Datos de programa, Etc...)

[WarGhost]

Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\prueba.txt"

[sp26]

El caso era...

Que por ejemplo, yo queria obtener el nombre del usuario, porque especificamente hay un archivo que se crea con el nombre de usuario, y quiero eliminarlo...

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\NOMBRE-DE-USUARIO.EXE") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\NOMBRE-DE-USUARIO.EXE"
End If

[WarGhost]

Código [Seleccionar] Expandir

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH")  & "\Escritorio\" & UsuarioActua & ".EXE") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & UsuarioActua & ".EXE"
End If

[sp26]

Hay surgio mi duda...

Ahora como haria para Abrir un archivo?

Osea, con el nombre del usuario incluido...

[Pitoniso]

Jajaja clase de casualidad yo choque los otros dias con una situacion igualita que esta.. bueno te dejo mi codigo..

chao me dices si pincho.. bye

'API para obtener el usuario actual
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String

    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    UsuarioActual = sUsuario
End Function


Private Sub Command1_Click()
    Kill "C:\Documents and Settings\" & UsuarioActual & "\" & "prueba.txt"
End Sub

[sp26]

Exactamente quiero eliminar un archivo que se disfrasa con el nombre de usuario...

Puse asi:

Código [Seleccionar] Expandir

If (Dir(Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src")) Then
  Kill Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src"
End If


Y No me funciono... 


Por cierto pitoniso, al parecer cogi tu codigo de otra web.