Bugzilla – Attachment 167334 Details for
Bug 133789
BASIC function DIR does not deliver correct result list
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
VBA code sample
133789.vba.txt (text/plain), 722 bytes, created by
Alain Romedenne
on 2020-11-16 16:26:00 UTC
(
hide
)
Description:
VBA code sample
Filename:
MIME Type:
Creator:
Alain Romedenne
Created:
2020-11-16 16:26:00 UTC
Size:
722 bytes
patch
obsolete
>Sub Example_patterns() > ExampleDir ("*") > ExampleDir ("*E*") > ExampleDir ("*e*") >End Sub > > >Sub ExampleDir(pattern$) >' Displays all files and directories >Dim sPath As String >Dim sDir As String, sValue As String > sDir = "Directories:" > sPath = "C:\Program Files\LibreOffice\program\" 'CurDir > sValue = Dir$(sPath + getPathSeparator + pattern, 16) > Do > If sValue <> "." And sValue <> ".." Then > If (GetAttr(sPath + getPathSeparator + sValue) And 16) > 0 Then > ' Get the directories > sDir = sDir & Chr(13) & sValue > End If > End If > sValue = Dir$ > Loop Until sValue = "" > MsgBox sDir, 0, sPath >End Sub
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 133789
:
161760
|
166514
| 167334 |
167335