Option Explicit

' ---------------------------------------------------------
' Funktion ShortPath
' Eingestellt von: Andre Schau
' Datum: 2011-09-10
' Kommentar:
' Parameter: String strPath, Länge lWidth
' Rückgabe: gekuerzter String
' weitere benoetigte Programme und Funktionen
' API-Funktion: SHFileOperationA
' Quelle/Download: msdn
' Aufruf:
' Sub call_DelTreeAPI()
' DelTreeApi(strPath)
' End Sub


Sub call_Deltree()
'Variablendeklaration
'String
Dim strPath$
  'Wert zuweisen
  strPath = "d:\Test\te*"
  'Wenn DelTreeApi erfolgreich dann
  If DelTreeApi(strPath) Then
    'Erfolgsmeldung
    MsgBox strPath & " wurde geloescht"
  'oder
  Else
    'Misserfolgsmeldung
    MsgBox strPath & " wurde nicht geloescht"
  'Ende Wenn DelTreeApi erfolgreich dann
  End If

End Sub