TransferText action - filename specifications

[elvanace1]

I have a macro that uses a query result and the TransferText action to write a txt file to a server. I would like to encorporate the date & time stamp into the filename. Is that possible? If yes, how?

 

[PHV]

Is that possible? If yes, how?
I don't know with macro, but with VBA (the Format and Now functions).

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[alvechurchdata]

I use this function to generate a filename:

Public Function MakeFileName()
  ' Description.......: Makes a file name from the date
  ' Accepts...........: Nothing
  ' Returns...........: A file name like 20020228.mdb
  ' Major change list.:

  Dim strDay As String    ' Day number as a two-digit string
  Dim strMonth As String  ' Month as a two-digit string
  Dim strYear As String   ' Year as a four-digit string

  ' Generate a ymd date string
  strYear = CStr(Year(Date))
  strMonth = CStr(Month(Date))
  If Len(strMonth) = 1 Then
    strMonth = "0" & strMonth
  End If

  strDay = CStr(Day(Date))
  If Len(strDay) = 1 Then
    strDay = "0" & strDay
  End If

  MakeFileName = strYear & strMonth & strDay

End Function

Geoff Franklin

http://www.alvechurchdata.co.uk