Private Const MAX_PATH = 260Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80End TypePrivate Declare Function SHGetFileInfo Lib "Shell32" Alias "SHGetFileInfoA" _ (ByVal pszPath As Any, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, _ ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long' Returns the description of the specified file/folder ' (for example "Folder", "Executable file", "Bmp Image" and so on)Function GetFileDescription(ByVal sPath As String) As String Const SHGFI_TYPENAME = &H400 Dim FInfo As SHFILEINFO ' retrieve the item's attributes SHGetFileInfo sPath, 0, FInfo, Len(FInfo), SHGFI_TYPENAME ' read the szTypeName field GetFileDescription = Left$(FInfo.szTypeName, InStr(FInfo.szTypeName & _ vbNullChar, vbNullChar) - 1)End Function
Westinghouse Builds Polish Power Plant
Lila Anderson
September 22, 2023
Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at
