Reply to thread

Message: <blockquote data-quote="RuZZa" data-source="post: 8322450" data-attributes="member: 227540">පට්ට පට්ටමම ස්ක්‍රිප්ට් එකෙන් ටිකක් අයින් කලා.දැන් බලන්න.එතකොට පුලුවන් එලියට දාන්න විතරයි(ලැප් වල වගේම ඩෙස්ක්ටොප් වලත් තියන සමහර රොම් ආපහු ඇතුලට දාන්න ඕනි අතින් තද කරලා).[CODE]Dim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting.FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")strDriveLetter = ""For intDriveLetter = Asc("A") To Asc("Z")Err.ClearIf fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM ThenIf Err.Number = 0 ThenstrDriveLetter = Chr(intDriveLetter)Exit ForEnd IfEnd IfNextMSGBOX "Your CD Drive Is: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetterSet oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectionFor d = 0 to colCDROMs.Count - 1colCDROMs.Item(d).EjectNext 'nullset owmp = nothingset colCDROMs = nothingwscript.quit[/CODE]</blockquote>

Top Bottom