Using Drive Names rather than Letters

[chrisdavies]

Hi People! I use this site loads but this is my first post - so hope you can help!

I've got an access database and I'm writing some code to move contents of USB memory sticks to certain locations on the network depending on the owner of the stick and date and things like that.

The problem is how I get this to work on everybody's PC. The stick do not always have the same drive letter, but they do have the same name (KINGSTON in our case).

How do I use drive names rather than letters in my code? Even better, could I just write something that would detect where a USB memory stick is? I've mananged to identify removable disks, but that's no good because of floppys and card readers etc.

Thanks for reading - Chris

[Killer42]

One fairly simple mthod would be to use the File System Object model to scan the drives for the one with the right volume name, then use the letter of that drive. See the VB doco for FileSystemObject.

[chrisdavies]

Sorted! Thought I'd post what I found:

Sub USBLetter()

Dim oFSO, oDrive, objFolder, oDestination, oUsbdrive
Const USBDRIVE = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Get USB drive letter
For Each oDrive In oFSO.Drives
If oDrive.Drivetype = USBDRIVE And oDrive.DriveLetter <> "A" Then
oUsbdrive = oDrive.DriveLetter & ":\" 'so oUsbdrive is the memorystick path
End If
Next


End Sub

Simple? Not to me! I'm on a steep learning curve.....