Select Case Prob [RESOLVED] thx p

[daveStudent]

I have the following code

 Dim KeyAscii As Integer
 KeyAscii = Asc(strPath.Chars(0))
Select Case KeyAscii
       Case KeyAscii = 67
           cDrive = cDrive + 1
            If bDriveC = False Then
                  intStartingY = intStartingY + 1
                  oSheet.Cells(intStartingY, 7).Value = strDriveLetter
                  bDriveC = True
             End If
             oSheet.Cells(intStartingY, 8).Value = cDrive
             intDriveLocation = intDriveLocation + 1
       Case KeyAscii = 68
            'similar to above code
       '.
       '.
       '.
       Case KeyAscii= 90
             'similar to above code

End Select 

i cant get the cases to be selected, i've tested with msgbox (KeyAscii) and am sure that the Ascii values are correct.

any help would be great

thanks

[Pirate]

One thing you can change in your code to look something like this :

Dim KeyAscii As Integer
 KeyAscii = Asc(strPath.Chars(0))
Select Case KeyAscii
 
       Case 67
           cDrive = cDrive + 1
            If bDriveC = False Then
                  intStartingY = intStartingY + 1
                  oSheet.Cells(intStartingY, 7).Value = strDriveLetter
                  bDriveC = True
             End If
             oSheet.Cells(intStartingY, 8).Value = cDrive
             intDriveLocation = intDriveLocation + 1
       Case 68
            'similar to above code
       '.
       '.
       '.
       Case 90
             'similar to above code
 
End Select

Try that .

[techgnome]

What Pirate is basically saying is that your syntax is incorrect....
instead of Case KeyAscii = 67, use
Case 67

[daveStudent]

yeah i caught that

thx though