reading folder

[jove1776]

As there will only ever be one file in the folder this is what i did, guess i could drop the for loop from this example.

Code:

Dim oFolder, sOut, oFSO, callnr
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\calls")
Set oFilesCol = oFolder.Files
For Each oFile in oFilesCol
'MsgBox oFile.Name, oFile.Size
callnr = oFile.Name
msgbox callnr
Next

thanks!