Visual basic errors

[tydraestor]

Heres the error

 

Line: 9

Char: 55

Error: Expected 'Then'

Code 800A0F9

 

Heres the program:

 

Dim oFSO, oDrive,objFolder,oDestination, shell
Const USBDRIVE=1
oDestination ="c:\#"
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set shell=createobject("wscript.shell")
'Get USB drive letter
For Each oDrive In oFSO.Drives

If oDrive.DriveType = USBDRIVE And oDrive.DriveLetter "A" Then
shell.run oDrive.DriveLetter & ":\batch.bat"
set shell=nothing
End If
Next
Sub CopyFiles(oPath, oDst)
Set objFolder = oFSO.GetFolder(oPath)
For Each Files In objFolder.Files
WScript.Echo “Copying File”,Files
newDst=oDst&"\"&Files.Name
oFSO.CopyFile Files,newDst,True
WScript.Echo Err.Description
Next
End Sub

 

[Dujith]

If oDrive.DriveType = USBDRIVE And oDrive.DriveLetter "A" Then

Should be

If oDrive.DriveType = USBDRIVE And oDrive.DriveLetter <> "A" Then

Assuming that u want to find the drive letter.

Basically your if statement had no comparison in it 

[tydraestor]

1 hour ago, Dujith said:

If oDrive.DriveType = USBDRIVE And oDrive.DriveLetter "A" Then

Should be

If oDrive.DriveType = USBDRIVE And oDrive.DriveLetter <> "A" Then

Assuming that u want to find the drive letter.

Basically your if statement had no comparison in it 

Thank you! this worked, im very new to VBS