----- Original Message -----
Sent: Monday, July 03, 2006 11:24
AM
Subject: Re: [indopb] hiden files
btest1 = SetFileAttributesA (sfilename,
3) // setting file attribute : hidden (2) + readonly
(1)
//
notes:
// untuk melihat attribut
file bisa juga dengan fungsi dirlist dari powerbuilder
//
sebagaimana dibawah ini salinan dari helpnya pb,
// maka jadi
settingannya merupakan kombinasi penjumlahan aritmatis
berdasarkan:
//
//filetype
//
//An unsigned integer representing one or more
types of files you want to list in the ListBox.
//
//Types are:·
//
0 Read/write
files·
//
1 Read-only
files·
//
2 Hidden
files·
//
4 System
files·
//
16
Subdirectories·
//
32 Archive
(modified) files·
//
16384
Drives·
// 32768
Exclude read/write files from the list
//
//To list several types, add the numbers
associated with the types.
//For example, to list read-write files,
subdirectories, and drives, use 0+16+16384 or 16400 for
filetype
untung d.s.
----- Original Message -----
Sent: Monday, July 03, 2006 10:46
AM
Subject: Re: [indopb] hiden files
thx atas bantuannya..
Mau tanya dikit lagi nih, kalau kita mau
file tersebut bukan cuma hidden
tapi juga readonly. Setingnya gimana
mas..?
----- Original Message -----
From: <[EMAIL PROTECTED]net.id>
To:
<[EMAIL PROTECTED]com>
Cc:
<[EMAIL PROTECTED]com>
Sent:
Friday, June 30, 2006 4:42 PM
Subject: Re: [indopb] hiden
files
> cara aplikasi untuk me-hidden-kannya sbb:
>
>
//1. declare external functions win32 for file
>
> // Win 32
calls
> // ...
>
> Function ulong GetFileAttributesA (ref
string filename) library
> "KERNEL32.DLL"
>
> Function
boolean SetFileAttributesA (ref string filename, ulong attrib)
>
library "KERNEL32.DLL"
>
> //...
>
> //2. script
powerbuilder
>
> string sfilename
> ulong utest1,
utest2
> boolean btest1
>
> sfilename = "app.ini"
>
utest1 = GetFileAttributesA (sfilename) // saving current file
attribut
> to utest1
> btest1 = SetFileAttributesA (sfilename,
2) // setting file attribute :
> hidden
> utest2 =
GetFileAttributesA (sfilename) // checking new file attribut :
>
hidden
> btest1 = SetFileAttributesA (sfilename, utest1) // restoring
saved file
> attribut from utest1
>
> // notes:
> //
untuk melihat attribut file bisa juga dengan fungsi dirlist dari
>
powerbuilder
>
>
> cheers,
>
> untung
d.s.
>
Internal Virus Database is out-of-date.
Checked by AVG Free
Edition.
Version: 7.1.371 / Virus Database: 267.14.7/214 - Release Date:
12/23/2005
