Flat file in http folder

Question

Hi,
Is there anyway of downloading a flat file into a folder in some http address rather than the application server or local directory.
Regards,
Sukumar.

Answer 1

You can run the VB script on any PC where the SAP Gateway and SDK have been installed.
I am working on a project where we use vbscript and ASP to extract data from SAP and use it on the intranet.
You can use the VB-Script in an excel or word document and also on a webpage. The example below I have used in a excel spreadsheet (use a macro to call the subroutine).
I hope this helps you.
Example below retrieves a list of vendors.
VBScript to list vendors from SAP table LFA1
Sub GetTable()
'Logon
Dim sapConn As Object 'Declare variant
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
If sapConn.Connection.Logon(0, False) <> True Then 'Try Logon
   MsgBox "Cannot Log on to SAP"
End If
'Define function
Dim objRfcFunc As Object
Set objRfcFunc = sapConn.Add("RFC_READ_TABLE")
'Set import parameters
Dim objQueryTab, objRowCount As Object
'Table name
Set objQueryTab = objRfcFunc.Exports("QUERY_TABLE")
objQueryTab.Value = "LFA1"
'Set max nr of rows
Set objRowCount = objRfcFunc.Exports("ROWCOUNT")
objRowCount.Value = "10"
'Set table parameters
Dim objOptTab, objFldTab, objDatTab As Object
Set objOptTab = objRfcFunc.Tables("OPTIONS")
Set objFldTab = objRfcFunc.Tables("FIELDS")
Set objDatTab = objRfcFunc.Tables("DATA")
'First we set the condition
objOptTab.FreeTable    'Refresh table
'Then set values where statement (TEXT field in table parameter OPTIONS)
objOptTab.Rows.Add
objOptTab(objOptTab.RowCount, "TEXT") = "KTOKK = 'HSUB' and "
objOptTab.Rows.Add
objOptTab(objOptTab.RowCount, "TEXT") = "ORT01 = 'London'"
'Next we set fields to obtain (fields we want to retrieve from the table)
objFldTab.FreeTable    'Refresh table
'Then set values (FIELDNAME field in table parameter FIELDS)
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "LIFNR"  'vendor nr
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "NAME1"  'vendor name
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "ORT01"  'city
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "ADRNR"  'address nr
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "ERNAM"  'user who created the vendor
If objRfcFunc.Call = False Then
   MsgBox objRfcFunc.Exception
End If
Dim objDatRec As Object
Dim objFldRec As Object
For Each objDatRec In objDatTab.Rows
   For Each objFldRec In objFldTab.Rows
      Cells(objDatRec.Index, objFldRec.Index) = Mid(objDatRec("WA"), objFldRec("OFFSET") + 1, objFldRec("LENGTH"))
   Next
Next
End Sub