Function NextFileName()
Dim fileprefix As String*1
Dim
tempNextFileName As String
Dim txtFilePath As String
Dim strYYYYMM
as String*6
strYYYYMM = Format(Now(),"yyyymm")
txtFilePath
= "c:\exported_data\"
fileprefix = "A"
Do While True
tempNextFileName = txtFilePath & fileprefix & _
strYYYYMM & ".txt"
If Dir(tempNextFileName) = "" Then
Exit Do
End If
fileprefix = Chr(Asc(fileprefix)
+ 1)
Loop
NextFileName = tempNextFileName
End Function
