Private Sub Command6_Click()
'this is an extract for all the Zip files
'FTP them to the Mainframe
'Added by HBM on 11/16/2006 as per Ann's request
Dim Db_Curr As Database
Dim Rs_Curr As Recordset
Dim St_OutPath As String
Dim St_OutFile As String
Dim St_FtpFile As String
Dim St_date As String
Dim lngFlags As Long
On Error GoTo ProcessError
Set Db_Curr = CurrentDb
St_OutPath = FileParse(Db_Curr.Name, 2)
lngFlags = ahtOFN_ALLOWMULTISELECT Or ahtOFN_EXPLORER Or _
ahtOFN_FILEMUSTEXIST Or ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR
With CommonDialog3
.InitDir = St_OutPath
.DialogTitle = "Open"
.CancelError = True
'ToDo: set the flags and attributes of the common dialog control
.Filter = "ZIP Files (*.*)|*.ZIP"
.flags = lngFlags
.ShowOpen
If Len(.FileName) = 0 Then
DoCmd.Hourglass False
Exit Sub
End If
MsgBox (lngFlags)
St_FtpFile = .FileName
St_FtpFile = FileParse(St_FtpFile, 3)
MsgBox (St_FtpFile)
End With
St_date = Format(Now(), "mmddyy")
St_OutFile = St_FtpFile
'St_FtpFile = "nmr_cable_service_" + St_date + ".csv"
'MsgBox (St_OutFile)
pF_ProcLog "CREATING " + St_FtpFile + " FILE"
Form_EXTRACT_DIG_SIM_STATIONS.PROCESS_LOG.Requery
Form_EXTRACT_DIG_SIM_STATIONS.Repaint
Set Db_Curr = Nothing
If pF_FtpPut("proxima", "tvlistings", "tvdata", St_FtpFile, St_OutFile, "BINARY") = True Then
'MsgBox "True"
MsgBox St_FtpFile + " FTP TO proxima@nielsenmedia.com "
This dialog box only let me select a single file not multiple files.
