Quantcast
Channel: Programming Forums
Viewing all articles
Browse latest Browse all 51036

CD DVD check

$
0
0
i need to make my program to check for a specific file existance on CD Or DVD rom ?

here is my code
Option Explicit
 
'Set Dimension
DIM fso
 
'Set Object
Set fso = CreateObject("Scripting.FileSystemObject")
 
'Create Condition
If (fso.FileExists("CD,dvd:\CDcheck.exe")) Then
CreateObject("WScript.Shell").Run "program.exe"
Else
'Alert User
WScript.Echo("Please Insert program CD!")
End If



'Exit Script
WScript.Quit()

Viewing all articles
Browse latest Browse all 51036

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>