Dim fs 'As Scripting.FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const WindowsFolder = 0
Const SystemFolder = 1
Const TemporaryFolder = 2
Const Normal = 0
Const ReadOnly = 1
Const Hidden = 2
Const System = 4
Const Directory = 16
Const Archive = 32
Const Alias = 1024 'Link or Shortcut