' Retrieve a file's path'' Note: trailing backslashes are never included in the resultFunction GetFilePath(FileName As String) As String Dim i As Long For i = Len(FileName) To 1 Step -1 Select Case Mid$(FileName, i, 1) Case ":" ' colons are always included in the result GetFilePath = Left$(FileName, i) Exit For Case "" ' backslash aren't included in the result GetFilePath = Left$(FileName, i - 1) Exit For End Select NextEnd Function


Intel’s Bold Comeback
Intel, a leading figure in the semiconductor industry, has underperformed in the stock market over the past five years, with shares dropping by 4% as