Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
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.