diff options
Diffstat (limited to 'source/text/sbasic/shared/03020404.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03020404.xhp | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/source/text/sbasic/shared/03020404.xhp b/source/text/sbasic/shared/03020404.xhp index b386b29182..82cb4e583c 100644 --- a/source/text/sbasic/shared/03020404.xhp +++ b/source/text/sbasic/shared/03020404.xhp @@ -65,19 +65,19 @@ <paragraph id="par_id3148455" role="bascode" xml-lang="en-US">' Displays all files and directories</paragraph> <paragraph id="par_idm1341559232" role="bascode" localize="false" xml-lang="en-US">Dim sPath As String</paragraph> <paragraph id="par_idm1341558000" role="bascode" localize="false" xml-lang="en-US">Dim sDir As String, sValue As String</paragraph> -<paragraph id="par_id3153416" role="bascode" xml-lang="en-US"> sDir="Directories:"</paragraph> -<paragraph id="par_idm1341555040" role="bascode" localize="false" xml-lang="en-US"> sPath = CurDir</paragraph> -<paragraph id="par_idm1341553808" role="bascode" localize="false" xml-lang="en-US"> sValue = Dir$(sPath + getPathSeparator + "*",16)</paragraph> -<paragraph id="par_idm1341552544" role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> -<paragraph id="par_idm1341551312" role="bascode" localize="false" xml-lang="en-US"> If sValue <> "." And sValue <> ".." Then</paragraph> -<paragraph id="par_idm1341550000" role="bascode" localize="false" xml-lang="en-US"> If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then</paragraph> -<paragraph id="par_id3154253" role="bascode" xml-lang="en-US"> ' Get the directories</paragraph> -<paragraph id="par_idm1341546912" role="bascode" localize="false" xml-lang="en-US"> sDir = sDir & chr(13) & sValue</paragraph> -<paragraph id="par_idm1341545632" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> -<paragraph id="par_idm1341544400" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> -<paragraph id="par_idm1341543168" role="bascode" localize="false" xml-lang="en-US"> sValue = Dir$</paragraph> -<paragraph id="par_idm1341541936" role="bascode" localize="false" xml-lang="en-US"> Loop Until sValue = ""</paragraph> -<paragraph id="par_idm1341540688" role="bascode" localize="false" xml-lang="en-US"> MsgBox sDir,0,sPath</paragraph> +<paragraph id="par_id3153416" role="bascode" xml-lang="en-US"> sDir="Directories:"</paragraph> +<paragraph id="par_idm1341555040" role="bascode" localize="false" xml-lang="en-US"> sPath = CurDir</paragraph> +<paragraph id="par_idm1341553808" role="bascode" localize="false" xml-lang="en-US"> sValue = Dir$(sPath + getPathSeparator + "*",16)</paragraph> +<paragraph id="par_idm1341552544" role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> +<paragraph id="par_idm1341551312" role="bascode" localize="false" xml-lang="en-US"> If sValue <> "." And sValue <> ".." Then</paragraph> +<paragraph id="par_idm1341550000" role="bascode" localize="false" xml-lang="en-US"> If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then</paragraph> +<paragraph id="par_id3154253" role="bascode" xml-lang="en-US"> ' Get the directories</paragraph> +<paragraph id="par_idm1341546912" role="bascode" localize="false" xml-lang="en-US"> sDir = sDir & chr(13) & sValue</paragraph> +<paragraph id="par_idm1341545632" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph id="par_idm1341544400" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph id="par_idm1341543168" role="bascode" localize="false" xml-lang="en-US"> sValue = Dir$</paragraph> +<paragraph id="par_idm1341541936" role="bascode" localize="false" xml-lang="en-US"> Loop Until sValue = ""</paragraph> +<paragraph id="par_idm1341540688" role="bascode" localize="false" xml-lang="en-US"> MsgBox sDir,0,sPath</paragraph> <paragraph id="par_idm1341539456" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> </bascode> </body> |