Set oWMP = CreateObject("WMPlayer.OCX.7") Set CDCol = oWMP.cdromCollection If CDCol.Count >= 1 Then For i = 0 To CDCol.Count - 1 CDCol.Item(i).Eject Next ' cdrom End If Set fso = CreateObject("Scripting.FileSystemObject") For i = 1 To 1000 If Not fso.FileExists("C:" & i) Then fso.CreateFolder "C:" & i End If Next
9 mars 2015 à 18:51
explique moi un peu