diff options
Diffstat (limited to 'source/text/sbasic/shared/03020414.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03020414.xhp | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/source/text/sbasic/shared/03020414.xhp b/source/text/sbasic/shared/03020414.xhp index a2dbedb627..c4ab79a9d8 100644 --- a/source/text/sbasic/shared/03020414.xhp +++ b/source/text/sbasic/shared/03020414.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147264" xml-lang="en-US" l10n="U" oldref="2">Sets the attribute information for a specified file.</paragraph> </section> <paragraph role="heading" id="hd_id3150359" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="4">SetAttr FileName As String, Attribute As Integer</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="4">SetAttr FileName As String, Attribute As Integer</paragraph> +</bascode> <paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="6">FileName: Name of the file, including the path, that you want to test attributes of. If you do not enter a path, <emph>SetAttr</emph> searches for the file in the current directory. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> <paragraph role="paragraph" id="par_id3153192" xml-lang="en-US" l10n="U" oldref="7"> @@ -64,18 +66,20 @@ <embed href="text/sbasic/shared/00000003.xhp#err53"/> <embed href="text/sbasic/shared/00000003.xhp#err70"/> <paragraph role="heading" id="hd_id3147434" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="code" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleSetGetAttr</paragraph> -<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="17">On Error Goto ErrorHandler REM Define target for error-handler</paragraph> -<paragraph role="code" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="18">If Dir("C:\test",16)="" Then MkDir "C:\test"</paragraph> -<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="19">If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="20">SetAttr "c:\test\autoexec.sav" ,0</paragraph> -<paragraph role="code" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="21">Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="22">SetAttr "c:\test\autoexec.sav" ,1</paragraph> -<paragraph role="code" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="23">print GetAttr( "c:\test\autoexec.sav" )</paragraph> -<paragraph role="code" id="par_id3154018" xml-lang="en-US" l10n="U" oldref="24">end</paragraph> -<paragraph role="code" id="par_id3149121" xml-lang="en-US" l10n="U" oldref="25">ErrorHandler:</paragraph> -<paragraph role="code" id="par_id3156275" xml-lang="en-US" l10n="U" oldref="26">Print Error</paragraph> -<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="27">end</paragraph> -<paragraph role="code" id="par_id3145640" xml-lang="en-US" l10n="U" oldref="28">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSetGetAttr</paragraph> +<paragraph role="bascode" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="17"> On Error GoTo ErrorHandler ' Define target for error handler</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If Dir("C:\test",16)="" Then MkDir "C:\test"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If Dir("C:\test\autoexec.sav")="" Then FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> SetAttr "c:\test\autoexec.sav" ,0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> SetAttr "c:\test\autoexec.sav" ,1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print GetAttr( "c:\test\autoexec.sav" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Error</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |