[ vuchko.vuchko @ 07.06.2010. 15:32 ] @
Iz naslova se da zakljuciti... Kako da na nekoj lokaciji kreiram folder koji bi bio nevidljiv za obicnom korisniku programa?
[ shpiki @ 07.06.2010. 17:56 ] @
Code:
Private Sub Command1_Click()
Dim FileSys, FolderPath
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FolderPath = FileSys.GetFolder("D:\test")
FolderPath.Attributes = -1
End Sub


to je za sakrivanje foldera, valjda znaš kako se folder kreira. Za unhide atribut je 0.

Pozdrav.
[ niho22 @ 17.06.2010. 17:41 ] @
Pozdrav, sakriti folder mozes i upotrebom attrib naredbe u "DOS" okruzenju.
startni meni --> run potom u prozor ukucati cmd (pokrenuli smo dos prompt)
pronaći lokaciju gdje se nalazi folder ili fajl koji zelite zastiti potom ukucati:
attrib imefajla.ext (ext je ekstenzija fajla ili foldera) a potom slijede prekidači
r read only, s system, h hiden, a arhiv
ako zelimo ukloniti neki od atributa isti prekidači ali sa -
npr. zelimo li sakriti (hiden) i proglasiti samo za citanje (read only) folder slike uradit cemo sledece:
Code:
attrib slike h r

ukloniti atribute:
Code:
attrib slike -h -r 

nadam se da nije tesko :)
[ vuchko.vuchko @ 17.06.2010. 22:15 ] @
To je rucno, a kako bi to izgledalo programski?




Ovaj post od shpiki-a je sasvim ok i radi provjereno.
[ t.marko016 @ 18.06.2010. 13:13 ] @
Vuchko ja sam za takve stvari uvek koristio FileSystemObject kao sto ti je Shpiki napisao kod i mogu da ti kazem
da sam njie pravio cele Explorer-e znaci njime mozes sve vezano za Fajlove, Foldere... a i mnogo je prosto.

A za ovo kod bi izgledao ovako:
Code:

Private Sub Command1_Click
Shell ("attrib C:\Test +h") 'Dodavanje Atributa
End Sub

Private Sub Command2_Click
Shell ("attrib C:\Test -h") 'Otklanjanje Atributa
End Sub


Nisam proverio ali mislim da to miora da radi.

Pozdrav
[ shpiki @ 18.06.2010. 13:32 ] @
@t.marko016:
radi i ovo, sve je stvar navike.. Kad me je interesovao rad sa fajlovima i folderima prvo sam ovo naučio i ostala navika..
Bitno da njemu radi posao, a sam neka odluči šta mu je "bliže"..

Pozdrav.
[ t.marko016 @ 18.06.2010. 13:39 ] @
shpiki nisi me razumeo "ja sam tvoj kod velicao", to je FSO(FileSystemObject).
[ t.marko016 @ 18.06.2010. 14:00 ] @
Evo naso sam neki stariji primer ;).
[ vuchko.vuchko @ 18.06.2010. 14:56 ] @
Hvala svima! Ovo sam ja pitao jer nikada nije na odmet nauciti jos nesto novo .
[ shpiki @ 18.06.2010. 16:10 ] @
@t.marko016
skontao sam ali kazem, moze i ovako kako si ti napisao, sta mu se vise svidja.. navika je cudo..

@vuchko.vuchko
bitno da radi posao, a trebace ti i ubuduce..

Pozdrav.