Select from 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
|Excel VLOOKUP. How to return "Not Found" if Item or Qty is missing in Lookup table?||11||38|
|Msbbox Notice (4 days)||27||58|
|Excel - click on a cell and have everything in another cell clear||13||31|
|what is the best portable software where i can test codes written in different languages||1||28|