Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Rechte setzen unter Win2K
Autor: Alexander
Datum: 04.09.02 17:52
Hi Stefan, die Rechte für Lesen,Hinzufügen und Ändern eines Ordners, kann man mit folgendem Beispiel-Quellcole ändern: Man benätigt eine Form (Form1), 2 Befehlsschaltflächen (Command1, Command2) und zwei TextBoxen (Text1, Text2). 'Add this code to the form Private Sub Command1_Click() Dim sUserName As String Dim sFolderName As String sUserName = Trim$(CStr(Text2.Text)) sFolderName = Trim$(CStr(Text1.Text)) SetAccess sUserName, sFolderName, GENERIC_READ Or GENERIC_EXECUTE Or DELETE Or GENERIC_WRITE End Sub Private Sub Command2_Click() Dim sUserName As String Dim sFolderName As String sUserName = Trim$(Text2.Text) sFolderName = Trim$(Text1.Text) SetAccess sUserName, sFolderName, GENERIC_EXECUTE Or GENERIC_READ End Sub Private Sub Form_Load() Text1.Text = "enter folder name" Text2.Text = "enter username" Command1.Caption = "Change" Command2.Caption = "Read && Add" End Sub

Rechte setzen unter Win2K	57	Stefan	03.09.02 16:23
Re: Rechte setzen unter Win2K	45	Alexander	04.09.02 17:52
Re: Rechte setzen unter Win2K	40	Stefan	04.09.02 18:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen