Как загнать все адреса файлов с расширением exe из каталога в массив? - VB
Формулировка задачи:
А как загнать все адреса файлов с расширением .exe из каталога (например in) в массив(As String)?
Решение задачи: «Как загнать все адреса файлов с расширением exe из каталога в массив?»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim dctFiles As New Dictionary Dim varKey As Variant Dim objFile As File Set dctFiles = LoadFilesIntoDictionary("C:TEMP", "xls") For Each varKey In dctFiles.Keys Set objFile = dctFiles.Items(CInt(varKey)) MsgBox "File " & CStr(varKey) & " " & objFile.Name & " Modified on " & objFile.DateLastModified Next varKey Set dctFiles = Nothing Set objFile = Nothing End Sub Private Function LoadFilesIntoDictionary(ByVal pstrFolder As String, ByVal pstrExtention As String) As Dictionary Dim objFSO As New FileSystemObject Dim objFile As File Dim objReturn As New Dictionary Dim intIndex As Integer For Each objFile In objFSO.GetFolder(pstrFolder).Files If LCase(objFSO.GetExtensionName(objFile.Path)) = pstrExtention Then objReturn.Add intIndex, objFile intIndex = intIndex + 1 End If Next objFile Set LoadFilesIntoDictionary = objReturn Set objFile = Nothing Set objFSO = Nothing Set objReturn = Nothing End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д