An important part of the job as a front-end developer is to stay up to date and in contact with new tools, trends and workflows. That’s why you cannot miss this upcoming webinar to explore the latest trends in UI technologies!
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 Set Rng = Sheets("Sheet1").Range("A2:A4") '''''sets the range to use For Each MyCell In Rng ''''checks each cell in range If MyCell <> "" Then '''''will only do something if the cell is not blank Call GetFileProperty(myFile, myType) '''Put your code here Else '''''if cell is equal to blank Exit Function ''''then quit macro 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.