Ti posto il tutto
crea un modulo un (.BAS)
inserisci questa stringa
Private Declare Function SHGetSpecialFolderPath Lib "Shell32" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
continuando..
sempre nel modulo (.BAS)
inserisci
Public Function GetSpecialFolderPath(ByVal intCSIDL As Long) As String
Dim blnResult As Long, strPath As String, strChar As String, i As Long
' inizializza il valore di ritorno della funzione...
Let GetSpecialFolderPath = ""
' ... riserva uno spazio sufficientemente grande per contenere la stringa
' restituita dalla funzione...
Let strPath = String(260, "*")
Let blnResult = SHGetSpecialFolderPath(0, strPath, intCSIDL, 0)
' ... nel caso la chiamata a funzione abbia avuto esito positivo...
If blnResult <> 0 Then
' ... poichè la stringa restituita contiene il carattere terminatore
' di stringa (come indicazione della fine della stessa) e questo non
' è adeguato in visual-basic, itera i caratteri della stringa recuperando
' tutti i caratteri *FINO* al terminatore (escluso).
For i = 1 To 260
Let strChar = Mid(strPath, i, 1)
If Asc(strChar) = 0 Then
Exit For
End If
GetSpecialFolderPath = GetSpecialFolderPath & strChar
Next
End If
End Function
continuando..
sempre nel modulo (.BAS)
Public Const CSIDL_INTERNET_CACHE = 32
' la costante dei Files Temporanei residenti sul tuo pc
Ora devi operare nel tuo Form
apri il Form
inserisci ad esempio un Text1
e scrivi questa stringa
Let Text1.Text = GetSpecialFolderPath(CSIDL_INTERNET_CACHE)
se vuoi cancellare tutti i files, usa i caratteri Jolly (*.*) in un'altra textbox
e aggiungi alla stringa, & txtCaratteriJolly.Text
dove
txtCaratteriJolly.Text = "*.*"
Se qualcosa non é chiara, posta!
|