In heb een Visual Basic programmaatje gemaakt die paden in het register wegschrijft van windows XP. Maar windows XP werkt natuurlijk met users.
Echter wil ik wel dat elke user de paden kan uitlezen en wegschrijven.
De code van het VB-script
Echter wil ik wel dat elke user de paden kan uitlezen en wegschrijven.
De code van het VB-script
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Private Sub Form_Load()
Call LoadSettings
End Sub
Sub SaveSettings()
'save globals in registry
SaveSetting App.EXEName, "settings", "padSplits", padSplits
SaveSetting App.EXEName, "settings", "padIndesignDoc", padIndesignDoc
SaveSetting App.EXEName, "settings", "padPDF", padPDF
SaveSetting App.EXEName, "settings", "padTabloids", padTabloids
MsgBox ("Paden zijn opgeslagen in het register van windows")
End Sub
Sub LoadSettings()
'load globals from registry
padSplits = GetSetting(App.EXEName, "settings", "padSplits", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\Splits\")
padPDF = GetSetting(App.EXEName, "settings", "padPDF", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\PDF\")
padTabloids = GetSetting(App.EXEName, "settings", "padTabloids", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\Tabloids\")
padIndesignDoc = GetSetting(App.EXEName, "settings", "padIndesignDoc", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\Indesign document\")
End Sub
Private Sub Command1_Click()
Call SaveSettings
End Sub |