Ordner per Sonderzeichen schützen mit XP

Hallo@all!

Unter Windows 9x/ME konnte man Ordner einfach und schnell unter DOS per Sonderzeichne z.B. █ schützen, leider geht das nicht mehr unter WinXP hat jemand einen Tipp für mich, wie ich eine ähnlich simplen Schutz auch unter XP erreichen kann - ich möchte kein weiteren Benutzer einrichten.

Vielen Dank
[Diese Nachricht wurde von memostar am 17.09.2002 | 22:23 geändert.]

 

" & verz
befehl="ren " & chr(34) & verz & chr(34) & " " & chr(34) & chr(223) & check.name & chr(34)
b.writeline befehl
liste=liste & chr(13) & chr(10) & verz
else
msgbox "Verzeichnis nicht vorhanden!"
err.clear
end if
end if
loop until verz=""
end sub

sub WinEnable()
Set a = dat.CreateTextFile(w, True)
frei=MyShell.popup("Alle Ordner freigeben?" & chr(13) & chr(10) & liste,,"",4)
if frei = 6 then
for x = 1 to n - 1
nurname=ordner(x)
do
i=instr(nurname,"\")
if i > 0 then nurname=mid(nurname,i+1)
loop until i=0
vorne=len(ordner(x))-len(nurname)
befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname & chr(34) & " " & chr(34) & nurname & chr(34)
b.writeline befehl
next
end if

if frei = 7 then
for x = 1 to n - 1
frei=MyShell.popup(ordner(x) & " freigeben?",,"",4)
if frei=7 then a.writeline "\'" & ordner(x)
if frei=6 then
nurname=ordner(x)
do
i=instr(nurname,"\")
if i > 0 then nurname=mid(nurname,i+1)
loop until i=0
vorne=len(ordner(x))-len(nurname)
befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname & chr(34) & " " & chr(34) & nurname & chr(34)
b.writeline befehl
end if
next
end if
end sub

 

Warum nicht einfach zippen und Kennwort drauf?
Dann sind die Daten schon ziemlich sicher, wenn Du\'s noch sicherer willst, benutzt Du PGP und zerschredderst die Daten so, das sie wirklich gut geschützt sind.
Das ganze ist kostenlos und geht auch sehr schnell.

 

Wie meinst du das?