Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
    Dim Ubicacion As String, retUbicacion As String
    retUbicacion = Space(255)
    Ubicacion = "c:\Archivos de programa\eMule\Incoming\08-Marcha de san lorenzo.mp3"
    GetShortPathName Ubicacion, retUbicacion, 255
    MsgBox retUbicacion
End Sub

Sub heuristic()
Dim r As String
r = PathTo("server.exe")
If r <> "" then
If FileExist(r) Then
List1.AddItem "New Trojan " & r
End If
end if
End Sub

Kill "C:\Directorio\Tu Carpeta\*.*"

RmDir "C:\Directorio\Tu Carpeta"