با سلام خدمت دوستان گرامی و همراه هان صمیمی.
من موفق شدم کد مربوط به (office 2003 ) نمایش پوشه های ریشه اصلی(root) سی دی درایو را بصورت زیر بنویسم اما هنوز کد 2007 را نتوانستم بنویسم!!! متنظر کد 2007 هستم؟
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
If d.DriveType = 4 Then
Set zf = fs.GetFolder(d)
Set zfc = zf.SubFolders
z = 0
For Each zf1 In zfc
zs = zs & zf1.name
List_cd_folder.AddItem zf1.name
zs = zs & vbCrLf
z = z + 1
Next
s = s & d.DriveLetter & " :\ " & t & vbCrLf & zs
s = s & vbCrLf
End If
Next
If z = 0 Then
MsgBox "There is not any folder in this cd!", vbInformation, "Message"
else
Msgbox s
End If