Help converting code to late binding

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am using Office 2003 on Windows XP.

I am trying to convert the following to late binding, but I get an error
"...cannot create object..." at the line indicated. I'm sure it is a syntax
error, but I don't know what the correct syntax would be. Can someone help me
out and post a correction?

Dim oFSO As Object
Dim oDrives As Object
Dim oDrive As Object
Dim strLetter As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDrives = CreateObject("Scripting.Drives") < ERROR
Set oDrive = CreateObject("Scripting.Drive") < ERROR

Thanks much in advance for your assistance!
 
Once you get the reference to the oFSO, then you have access to that object
model:

Sub f()
Dim oFSO As Object
Dim oDrives As Object
Dim oDrive As Object
Dim strLetter As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDrives = oFSO.Drives
For Each oDrive In oDrives
Debug.Print oDrive.DriveLetter
Next
End Sub
 
Thanks Tom!

Tom Ogilvy said:
Once you get the reference to the oFSO, then you have access to that object
model:

Sub f()
Dim oFSO As Object
Dim oDrives As Object
Dim oDrive As Object
Dim strLetter As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDrives = oFSO.Drives
For Each oDrive In oDrives
Debug.Print oDrive.DriveLetter
Next
End Sub
Click to expand...
 
Back
Top