Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Dim fileNameArray As String
fileNameArray = Dir$("C:\TEMP\", 0)
Do While fileNameArray <> ""
Print fileNameArray
fileNameArray = Dir$()
Loop
Exit Function Dim fileNameArray As String
fileNameArray = Dir$("C:\TEMP\", 16)
Do While fileNameArray <> ""
Print fileNameArray
fileNameArray = Dir$()
Loop
Exit FunctionВот именно так я и сделал, и поставил вторым параметром 16, а мне вернули и каталоги и файлы.
Т.е. этот параметр указывает что еще добавить к списку файлов. В твоём случае к списку файлов добавляется список папок.
Эх, в моем случае я даже могу просто удалять файлы, а потом заняться обработкой подкаталогов, но я думал можно как то проще это сделать, без поиска пересечений.
Sub Initialize
Dim objFSO As Variant
Dim objRootFolder As Variant
Dim rootFolder As String
rootFolder = "C:\Test"
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Set objRootFolder = objFSO.GetFolder( rootFolder )
Call GetDir_Recurse( objRootFolder )
End Sub
Sub GetDir_Recurse( SrcFolder )
Dim arrSubfolders As Variant
Set arrSubfolders = SrcFolder.SubFolders
Forall currentFolder In arrSubfolders
Print currentFolder.Name
Call GetDir_Recurse( currentFolder )
End Forall
End SubConst FILE_ATTRIBUTE_DIRECTORY = 16
Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (Byval lpFileName As String) As Long
Sub Initialize
Dim fileNameArray As String
Dim rootFolder As String
rootFolder = "C:\Test\"
fileNameArray = Dir$( rootFolder, 16 )
Do While fileNameArray <> ""
If IsDir( rootFolder & fileNameArray ) Then Print fileNameArray
fileNameArray = Dir$()
Loop
End Sub
Function IsDir( srcFolder )
IsDir = False
If GetFileAttributes( srcFolder ) = FILE_ATTRIBUTE_DIRECTORY Then IsDir = True
End Functionну правильно,...
%Include "lsconst.lss"
Dim fileNum As Integer, attr As Integer
Dim fileName As String, msg As String
fileNum% = FreeFile()
fileName$ = "data.txt"
Open fileName$ For Output As fileNum%
Close fileNum%
SetFileAttr fileName$, ATTR_READONLY + ATTR_SYSTEM + _ ATTR_HIDDEN
attr% = GetFileAttr(fileName$)
If (attr% And ATTR_READONLY) Then
msg$ = msg$ & " Read-Only "
Else
msg$ = msg$ & " Normal "
End If
If (attr% And ATTR_HIDDEN) Then msg$ = msg$ & " Hidden "
If (attr% And ATTR_SYSTEM) Then msg$ = msg$ & " System "
If (attr% And ATTR_DIRECTORY) Then msg$ = msg$ & " Directory "
Print msg$
SetFileAttr fileName$, ATTR_NORMAL ' Reset to normal.
Kill fileName$что есть системный файл? Это понятие устарело этак лет 15-20 назад
thumbs.db
Вроде сработало, но не понимаю, как это работает.
уже эта фраза содержит ответ
Обучение наступательной кибербезопасности в игровой форме. Начать игру!
