We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function GetFileProperty(myFile As String, myType As String) As String 'This creates an instance of the MS Scripting Runtime FileSystemObject class Set oFS = CreateObject("Scripting.FileSystemObject") Select Case UCase(Trim(myFile)) Case "CREATED" GetFileProperty = oFS.GetFile(myFile).DateCreated Case "MODIFIED" GetFileProperty = oFS.GetFile(myFile).DateLastModified Case "ACCESSED" GetFileProperty = oFS.GetFile(myFile).DateLastAccessed Case "SIZE" GetFileProperty = oFS.GetFile(myFile).Size Case Else GetFileProperty = "txt" End Select End Function Public Sub SperiamoLoop() Dim MyCell As Variant, Rng As Range Dim myFile As String, myType As String Set Rng = Sheets("Sheet1").Range("A2:A4") For Each MyCell In Rng If MyCell <> "" Then myFile = Left(MyCell, InStr(MyCell, "\") - 1) myType = Mid(MyCell, InStr(MyCell, "\") + 1) MyCell.Offset(0, 1) = GetFileProperty(myFile, myType) End If Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.