You do not have Permission to view this Post

You do not have Permission to view this Post

You do not have Permission to view this Post

You do not have Permission to view this Post

You do not have Permission to view this Post

You do not have Permission to view this Post

K=0

For i=1 to 3

datatable.SetCurrentRow i

vFromlist=Datatable("FROMLIST",DtGlobalsheet)

vTolist=Datatable("TOLIST",DtGlobalsheet)

If vFromlist <> vTolist Then

datatable.SetCurrentRow K+1

Datatable("W_FROMLIST",DtGlobalsheet)=vFromlist

END IF

For j=1 to 3

K=K+1

datatable.SetCurrentRow j

vTolist=Datatable("TOLIST",DtGlobalsheet)

If vFromlist <> vTolist Then

datatable.SetCurrentRow K

Datatable("W_TOLIST",DtGlobalsheet)=vTolist

Datatable("W_FROMLIST",DtGlobalsheet)=vFromlist

ELSE

K=K-1

End If

Next

Next

DataTable.Export ("C:flightscombo.xls")

'create object for filesystem object to create read and write the data in the text file or notepadfile
   Set fso = CreateObject("Scripting.FileSystemObject")

''generate folder name
 foldername="c:Bogus"& randomnumber(10000,777777)

'create a folder
  fso.CreateFolder (foldername)

''generate a  filename
  filename=foldername & "Bogusfile" & randomnumber(10000,777777) & ".txt"

'create a file
  Set f1 = fso.CreateTextFile(filename, True)

'write data into file
  f1.WriteLine(filename)

'read data from the file
  Set f1 = fso.GetFile(filename)

You do not have Permission to view this Post

You do not have Permission to view this Post