A digital transformation requires faster time to market, shorter software development lifecycles, and the ability to adapt rapidly to changing customer demands. DevOps provides the solution.
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") If oFS.FileExists(myFile) Then Select Case UCase(Trim(myType)) 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 Else GetFileProperty = "File does not exist" End If 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 myFile = MyCell.Value If myFile <> "" Then For i = 1 To 4 myType = Sheets("Sheet1").Range("A1").Offset(0, i) MyCell.Offset(0, i) = GetFileProperty(myFile, myType) Next 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.