Question : Why am I locked out of my files?

Windows 7 has recently decided to deny me access to DOCUMENTS AND SETTINGS on my computer.  (The message I get is simply ACCESS DENIED)
Can anyone help me with this problem.  (The file folder icon for DOCUMENTS AND SETTINGS has a closed padlock shown on it.

Answer : Why am I locked out of my files?

give it a go
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

dim filename,placeholder,data,tokens,subtokens,tok

If (WScript.Arguments.Count = 2) Then
  filename = WScript.Arguments(0)
  placeholder = WScript.Arguments(1)
Else
  WScript.Echo "Not enugh arguments: expected 2 (filename + placeholder)."
  WScript.Quit
End If
 
START_TOKEN = "<strong>" & placeholder & "</strong>"
END_TOKEN = "</div>"

Set fso = CreateObject("Scripting.FileSystemObject")
Set input = fso.OpenTextFile(filename)
data = input.ReadAll
input.Close
Set input = Nothing

tokens = Split(data, START_TOKEN)
for each tok in tokens
	subtokens = Split(tok, END_TOKEN)
	if UBound(subtokens) > 0 then
		if subtokens(0) <> "" then
			WScript.Echo subtokens(0)
		end if
	end if
next
Random Solutions  
 
programming4us programming4us