-
Notifications
You must be signed in to change notification settings - Fork 5
Expand file tree
/
Copy pathVideosSorter.pbi
More file actions
36 lines (32 loc) · 1.09 KB
/
VideosSorter.pbi
File metadata and controls
36 lines (32 loc) · 1.09 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Enumeration
#Directory2
EndEnumeration
Directory$ = GetCurrentDirectory() + "DIRECTORY_101\"
NewList DirectoryContent2.s()
If ExamineDirectory(#Directory2, Directory$, "*.mp4")
While NextDirectoryEntry(#Directory2)
If DirectoryEntryType(#Directory2) = #PB_DirectoryEntry_File
AddElement(DirectoryContent2())
DirectoryContent2() = DirectoryEntryName(#Directory2)
EndIf
Wend
FinishDirectory(#Directory2)
EndIf
If ExamineDirectory(#Directory2, Directory$, "*.avi")
While NextDirectoryEntry(#Directory2)
If DirectoryEntryType(#Directory2) = #PB_DirectoryEntry_File
AddElement(DirectoryContent2())
DirectoryContent2() = DirectoryEntryName(#Directory2)
EndIf
Wend
FinishDirectory(#Directory2)
EndIf
If ExamineDirectory(#Directory2, Directory$, "*.mkv")
While NextDirectoryEntry(#Directory2)
If DirectoryEntryType(#Directory2) = #PB_DirectoryEntry_File
AddElement(DirectoryContent2())
DirectoryContent2() = DirectoryEntryName(#Directory2)
EndIf
Wend
FinishDirectory(#Directory2)
EndIf