For Each loop question

[fearlessfreep32]

I'm having trouble understanding exactly where something comes from. Consider the bit of script below. Who decided to use oFile in the loop and why choose oFile?

Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
 
sPath = InputBox("Provide starting folder path")
Set oFolder = oFSO.GetFolder(sPath)
 
If oFSO.FolderExists(sPath) Then
 
For Each oFile in oFolder.Files
    Msgbox "File " & oFile.Name & " last changed on on " & _
    oFile.DateLastModified & " and of type " & _
    oFile.Type & ". It is contained in folder " & _
    oFile.ParentFolder.Path & " and uses the short " & _
    " filename " & oFile.Shortname & "."
Next
End If
 

[debasisdas]

I dont think the code is yours

oFile is declared some where else which is not part of this code and that must be a file object.

[jimmylee]

I'm having trouble understanding exactly where something comes from. Consider the bit of script below. Who decided to use oFile in the loop and why choose oFile?

Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
 
sPath = InputBox("Provide starting folder path")
Set oFolder = oFSO.GetFolder(sPath)
 
If oFSO.FolderExists(sPath) Then
 
For Each oFile in oFolder.Files
    Msgbox "File " & oFile.Name & " last changed on on " & _
    oFile.DateLastModified & " and of type " & _
    oFile.Type & ". It is contained in folder " & _
    oFile.ParentFolder.Path & " and uses the short " & _
    " filename " & oFile.Shortname & "."
Next
End If
 

Here


Dim oFSO As FileSystemObject
Dim sPath As String
Private Sub Command1_Click()
Set oFSO = New FileSystemObject

sPath = InputBox("Provide starting folder path")
Set oFolder = oFSO.GetFolder(sPath)

If oFSO.FolderExists(sPath) Then

For Each oFile In oFolder.Files
MsgBox "File " & oFile.Name & " last changed on on " & _
oFile.DateLastModified & " and of type " & _
oFile.Type & ". It is contained in folder " & _
oFile.ParentFolder.Path & " and uses the short " & _
" filename " & oFile.ShortName & "."
Next
End If

End Sub

[fearlessfreep32]

The code is NOT mine. I was reading it and trying to figure out the thing I was asking about. The code also works as is so it is not declared anywhere else.

Thanks anyway

[Killer42]

... The code also works as is so it is not declared anywhere else.

Then VB must be set to allow you to use variables without explicitly declaring them - a very bad practice.