Sub test() Dim fd As Scripting.Folder set fd = new Scripting. \' (Dictionary, Encoder, FilesystemObject) End Sub
I get only these three option.