Trying to download a file off a ftp server and everything works when the bat file specifically identifies the file
.bat file code
 get AI_ZRM1.2.xlsm
when I use a wildcard it does not work
get *.xlsm

the full bat file looks like this
user
myusername@mywebsite
mypassword
cd AI
binary
lcd C:\Users\Brent\Documents\ZRM
get *.xlsm
Close
Bye
Quit
this is the vba that creates the .bat file and then executes it.

Sub DownloadLatest()
'http://www.mrexcel.com/forum/excel-questions/293735-trying-download-ftp-visual-basic-applications.html
' batch commands http://www.computerhope.com/batch.htm
Dim x, LR, MyRow As Long
Dim CS, FtpFile As Workbook
Dim PosePath, FtpFilePath As String
Dim FileRange As Range
Dim item

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

'Create ZRM folder in my documents where i will add the .bat file and .xlsm file i am downloading from the ftp server

Dim wShell, fso, strFldr As String, strFldr2 As String
Set wShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strFldr = wShell.SpecialFolders("MyDocuments")              ' Find MyDocuments on any PC
ChDir (strFldr)
On Error Resume Next                                        ' If folder already exists it wont be created
fso.CreateFolder ("ZRM")                                    ' Create ZRM Folder
strFldr2 = wShell.SpecialFolders("MyDocuments") & "\ZRM"
ChDir (strFldr2)
On Error Resume Next                                        ' If folder already exists it wont be created



'These 2 paths must conform to the Dos format C:\docume~1 - Truncated to 8 characters
strFldr = wShell.SpecialFolders("MyDocuments") & "\ZRM"  '  Where you want to PUT the files downloaded"

FtpFilePath = wShell.SpecialFolders("MyDocuments") & "\ZRM\"   '  Where you want to put the FTP Batch File"


Workbooks.add
Set FtpFile = ActiveWorkbook
FtpFile.Sheets("Sheet1").Range("A1") = "user"
FtpFile.Sheets("Sheet1").Range("A2") = "username"
FtpFile.Sheets("Sheet1").Range("A3") = "password"
FtpFile.Sheets("Sheet1").Range("A4") = "cd " & "AI"
FtpFile.Sheets("Sheet1").Range("A5") = "binary"
FtpFile.Sheets("Sheet1").Range("A6") = "lcd " & strFldr ' Changes Directory for FTP output
FtpFile.Sheets("Sheet1").Range("A7").value = "get " & "" & "*.xlsm" & """"


LR = FtpFile.Sheets("Sheet1").Cells(rows.Count, "A").End(xlUp).row + 1
FtpFile.Sheets("Sheet1").Cells(LR, "A") = "Close"
FtpFile.Sheets("Sheet1").Cells(LR + 1, "A") = "Bye"
FtpFile.Sheets("Sheet1").Cells(LR + 2, "A") = "Quit"
Set objWorksheet = ActiveWorkbook.Worksheets("Sheet1")
objWorksheet.SaveAs FtpFilePath & "ftpfile.bat", xlTextMSDOS
ActiveWorkbook.Close

x = Shell("ftp.exe -n -s:" & FtpFilePath & "ftpfile.bat " & "ftp.mywebsite.com", vbHide)


'On Error Resume Next
Application.Wait (Now + TimeValue("0:00:07"))
'Kill FtpFilePath & "ftpfile.bat "

Application.ScreenUpdating = True

Application.EnableEvents = True
Application.DisplayAlerts = True

'Open File Path
Shell "explorer.exe" & " " & strFldr, vbNormalFocus
End Sub