02.04.2001
So rufen Sie das Fenster "Neue Freigabe" auf
1 CommandButton (Command1) FORM-CODE
Private Sub Command1_Click() Shell ("rundll32.exe ntlanui.dll,ShareCreate") End Sub