(assuming fileLocation already ends with a backslash)
See https://winscp.net/eng/docs/library_session_putfiles#localpath

Might be a dumb question, but this code puts a single file:

Dim transferOptions As New TransferOptions
transferOptions.TransferMode = TransferMode.Binary
transferOptions.PreserveTimestamp = False

transferResult = session.PutFiles(fileLocation & fileName, homeDirectory & fileName, False, transferOptions)

I want to push all files in fileLocation (but not the folders, just the files).

If I do this:
transferResult = session.PutFiles(fileLocation, homeDirectory, False, transferOptions)

Then it creates a folder on the remote server called '' and it moves all files and sub folders into that folder.
What am I missing?