The following functions offer quick access to syetem folder locations

Public Function GetDesktopFolderName() As String
 Return FileIO.SpecialDirectories.Desktop
End Function
'
Public Function GetMyDocumentsFolderName() As String
 Return FileIO.SpecialDirectories.MyDocuments
End Function
'
Public Function GetMyMusicFolderName() As String
 Return FileIO.SpecialDirectories.MyMusic
End Function
'
Public Function GetMyPicturesFolderName() As String
 Return FileIO.SpecialDirectories.MyPictures
End Function
'
Public Function GetProgramFilesFolderName() As String
 Return FileIO.SpecialDirectories.ProgramFiles
End Function
'
Public Function GetProgramsFolderName() As String
 Return FileIO.SpecialDirectories.Programs
End Function
'
Public Function GetSystemTempFolderName() As String
 Return FileIO.SpecialDirectories.Temp
End Function
'
Public Function GetFolderNameForCurrentApp() As String
 Return Application.StartupPath
End Function
  

DigitalDan.co.uk