Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim arrHeaders(34) As String
Dim objShell As Shell
Dim objFolder
Dim I As Integer
Dim strFileName
Dim itmAdd As ListItem
Dim strCreatedOn As String
Dim strFileExt As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strFile)
lstFile.ListItems.Clear
For I = 0 To 10
arrHeaders(I) = objFolder.GetDetailsOf(objFolder.Items, I)
Next
For Each strFileName In objFolder.Items
For I = 0 To 10
strFileExt = Right(strFileName, 4)
If Right(strFileName, 4) = ".doc" Then
If arrHeaders(I) = "Author" Then
If objFolder.GetDetailsOf(strFileName, I) = txtUserName.Text Then
lstFile.Visible = True
Set itmAdd = lstFile.ListItems.Add(Text:=strFileName)
itmAdd.SubItems(2) = objFolder.GetDetailsOf(strFileName, I)
itmAdd.SubItems(1) = strCreatedOn
End If
Else
If arrHeaders(I) = "Created" Then
strCreatedOn = objFolder.GetDetailsOf(strFileName, I)
End If
End If
End If
Next
Next
Set objShell = Nothing