' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Visualizza_cartelle_speciali

''get special folder



Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias _

"SHGetSpecialFolderPathA" (hwndOwner As Long,byref lpszPath As String, _

nFolder As Long, fCreate As Long) As Long



Const CSIDL_DESKTOP = &H0

Const CSIDL_PROGRAMS = &H2

Const CSIDL_CONTROLS = &H3

Const CSIDL_PRINTERS = &H4

Const CSIDL_PERSONAL = &H5

Const CSIDL_FAVORITES = &H6

Const CSIDL_STARTUP = &H7

Const CSIDL_RECENT = &H8

Const CSIDL_SENDTO = &H9

Const CSIDL_BITBUCKET = &HA

Const CSIDL_STARTMENU = &HB

Const CSIDL_DESKTOPDIRECTORY = &H10

Const CSIDL_DRIVES = &H11

Const CSIDL_NETWORK = &H12

Const CSIDL_NETHOOD = &H13

Const CSIDL_FONTS = &H14

Const CSIDL_TEMPLATES = &H15



DIM folder AS STRING

folder = Space$(260)



SHGetSpecialFolderPath(0, folder,CSIDL_DESKTOP, 0)

folder = LTrim$(folder)



SHOWMESSAGE ltrim$(rtrim$(folder))



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb