I want to be able to use the package and deployment wizard to create a setup file which, when installed, uses photos still on the CD-Rom. Therefore, my VB software needs to be able to locate the CD-Rom drive which, of course, could be different on different machines. Could anybody help me with the code to do this? Thanks.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Finding the CD-Rom drive 1
- Thread starter jjhobs
- Start date
-
1
- #2
Here's a start.
Make sure to reference the Micorsoft Scripting Runtime
Dim fso As New Scripting.FileSystemObject
Dim drives As Scripting.Drive
For Each drives In fso.drives
If drives.DriveType = CDRom Then
'Check if this is the correct cd rom if so
'execute code and exit for if not check for next cd rom
MsgBox "The Cd Rom Drive letter is " & drives.DriveLetter
End If
Next
Make sure to reference the Micorsoft Scripting Runtime
Dim fso As New Scripting.FileSystemObject
Dim drives As Scripting.Drive
For Each drives In fso.drives
If drives.DriveType = CDRom Then
'Check if this is the correct cd rom if so
'execute code and exit for if not check for next cd rom
MsgBox "The Cd Rom Drive letter is " & drives.DriveLetter
End If
Next
mmilan
Please read faq222-2244 paragraph 12 to see why email questions and answers are discouraged in this forum
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'If we're supposed to work in Hex, why have we only got A fingers?'
Please read faq222-2244 paragraph 12 to see why email questions and answers are discouraged in this forum
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'If we're supposed to work in Hex, why have we only got A fingers?'
- Thread starter
- #7
DrJavaJoe - I have only just tried to use your code and it comes up with an error "user defined type not defined". Do you have any ideas what I could be doing wrong?
With regards to your question about my other threads, I have resolved them. Thanks.
With regards to your question about my other threads, I have resolved them. Thanks.
- Thread starter
- #9
Project Menu -> References -> Micorsoft Scripting Runtime
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."
- Thread starter
- #11
- Thread starter
- #12
I have used the code recommended by DrJavaJoe on December 17 as follows:
I have referenced the Micorsoft Scripting Runtime
Dim fso As New Scripting.FileSystemObject
Dim drives As Scripting.Drive
For Each drives In fso.drives
If drives.DriveType = CDRom Then
'Check if this is the correct cd rom if so
'execute code and exit for if not check for next cd rom
MsgBox "The Cd Rom Drive letter is " & drives.DriveLetter
End If
Next
To check if it is the correct cd rom drive I have used the dir function to check for a file on the CD. This seems to return error 52 if the file doesn't exist, so I have included error trapping. However, the error trapping works fine for the first cdRom drive without a disk in, but when it comes across the second cdRom drive without a disk I get a run time error 52. Can anyone suggest why this might be, or whether there is a better way of checking if it is the correct drive.
Thanks
jjhobs
I have referenced the Micorsoft Scripting Runtime
Dim fso As New Scripting.FileSystemObject
Dim drives As Scripting.Drive
For Each drives In fso.drives
If drives.DriveType = CDRom Then
'Check if this is the correct cd rom if so
'execute code and exit for if not check for next cd rom
MsgBox "The Cd Rom Drive letter is " & drives.DriveLetter
End If
Next
To check if it is the correct cd rom drive I have used the dir function to check for a file on the CD. This seems to return error 52 if the file doesn't exist, so I have included error trapping. However, the error trapping works fine for the first cdRom drive without a disk in, but when it comes across the second cdRom drive without a disk I get a run time error 52. Can anyone suggest why this might be, or whether there is a better way of checking if it is the correct drive.
Thanks
jjhobs
You can call the FileExists Method of the FileSystemObject object.
Dim fso As New Scripting.FileSystemObject
Dim drives As Scripting.Drive
For Each drives In fso.drives
If drives.DriveType = CDRom Then
'Check if this is the correct cd rom if so
'execute code and exit for if not check for next cd rom
If fso.FileExists(drives.DriveLetter & ":\TheFileName"
Then
'Do Something
Else
MsgBox "The File Doesn't exist"
End If
End If
Next
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."
Dim fso As New Scripting.FileSystemObject
Dim drives As Scripting.Drive
For Each drives In fso.drives
If drives.DriveType = CDRom Then
'Check if this is the correct cd rom if so
'execute code and exit for if not check for next cd rom
If fso.FileExists(drives.DriveLetter & ":\TheFileName"
Then'Do Something
Else
MsgBox "The File Doesn't exist"
End If
End If
Next
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."
- Thread starter
- #14
- Status
Similar threads
- Locked
- Question