vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Anwendungsordner freigeben 
Autor: Fritz
Datum: 26.09.04 09:14
Hallo Steve

Mann, ich hoffe, du hast keine schlaflosen Nächte wegen dieser Geschichte. Aber inzwischen bin ich wirklich langsam zur Überzeugung gelangt, dass es offenbar einfach nicht geht. Hab mich auch in anderen Foren umgesehen und stundenlang gegoogelt, Resultat = 0. Nirgendwo kann ich einen Parameter entdecken, der diesen Schreibschutz anspricht. Und keiner der grossen Gurus hat auch nur einen Mucks dazu gemacht. Seltsam, wirklich seltsam.

Was ich inzwischen geschafft habe, ist, stattdessen unter W98/Me einfach das Dateieigenschaften-Dialogfeld des Explorers aufzurufen, so dass der Benutzer immerhin nicht weit suchen muss und einfach mit 3 Klicks dann die Freigabe setzen kann. Ist auch nicht ganz einfach, ich musste den Code aus VB6 importieren (wenigstens das geht mit VB2003):

Private Structure SHELLEXECUTEINFO
Dim cbSize As Integer
Dim fMask As Integer
Dim hwnd As Integer
Dim lpVerb As String
Dim lpFile As String
Dim lpParameters As String
Dim lpDirectory As String
Dim nShow As Integer
Dim hInstApp As Integer
Dim lpIDList As Integer
Dim lpClass As String
Dim hkeyClass As Integer
Dim dwHotKey As Integer
Dim hIcon As Integer
Dim hProcess As Integer
End Structure

Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef SEI As SHELLEXECUTEINFO) As Integer


Funktion Dateieigenschaften:

Public Sub ShellFileProperties(ByRef FileName As String, Optional ByVal OwnerhWnd As Integer = 0)
Dim nSEI As SHELLEXECUTEINFO
With nSEI
.cbSize = Len(nSEI)
.fMask = SEE_MASK_FLAG_NO_UI Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_NOCLOSEPROCESS
.hwnd = OwnerhWnd
.lpVerb = "properties"
.lpFile = FileName
End With
If ShellExecuteEx(nSEI) = 0 Then
Err.Raise(Err.LastDllError, "ShowProps")
End If
End Sub

'Und der Aufruf, in einem Button:

Dim pfad As String = IO.Directory.GetCurrentDirectory()
ShellFileProperties(pfad)


Statt "properties" wär natürlich noch besser, wenn man gleich auf die Registerkarte "Freigabe" kame, dann könnte ich die Freigabe mit der WsHShell setzen und der Benutzer müsste nur noch den Schreibschutz aufheben. Hab aber noch nicht rausgefunden wie ich direkt dahin komme. Dann wäre es nur noch 1 Klick.

Sieht etwas seltsam aus im Programmablauf, aber es scheint der einzige gangbare Weg zu sein.

Inzwischen bin ich schon bei einem weiteren trickigen Problem, doch dazu werde ich einen neuen Thread starten. Es geht darum, die Security für das Intranet auf Fulltrust zu setzen, damit die Clients externe Programme ausführen dürfen. Ist auch wieder sowas, wo man nirgendwo konkrete Hinweise findet.

Also wenn du Lust hast, weiter zu suchen, bitteschön, wär natürlich wirklich eleganter, wenn es eine Lösung gäbe. Aber sonst würde ich mich mit dem aktuellen Stand eben zufrieden geben.

Schönen Gruss und Dank

Fritz
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Anwendungsordner freigeben3.060Fritz05.09.04 10:56
Re: Anwendungsordner freigeben1.994WaldiMaywood05.09.04 12:59
Re: Anwendungsordner freigeben1.503Fritz05.09.04 13:39
Re: Anwendungsordner freigeben1.633WaldiMaywood05.09.04 13:45
Re: Anwendungsordner freigeben1.522Fritz05.09.04 14:22
Re: Anwendungsordner freigeben1.514Fritz05.09.04 14:58
Re: Anwendungsordner freigeben1.506WaldiMaywood05.09.04 15:04
Re: Anwendungsordner freigeben1.467Fritz05.09.04 15:33
Re: Anwendungsordner freigeben1.531WaldiMaywood05.09.04 15:42
Re: Anwendungsordner freigeben1.427Fritz05.09.04 16:03
Re: Anwendungsordner freigeben1.483WaldiMaywood05.09.04 16:23
Re: Anwendungsordner freigeben1.428Fritz05.09.04 16:41
Re: Anwendungsordner freigeben1.437WaldiMaywood05.09.04 17:37
Re: Anwendungsordner freigeben1.477Fritz05.09.04 17:51
Re: Anwendungsordner freigeben1.481WaldiMaywood05.09.04 17:58
Re: Anwendungsordner freigeben1.670Fritz05.09.04 18:09
Re: Anwendungsordner freigeben1.449WaldiMaywood05.09.04 18:16
Re: Anwendungsordner freigeben1.427Fritz05.09.04 19:16
Re: Anwendungsordner freigeben1.393Fritz06.09.04 17:51
Re: Anwendungsordner freigeben1.406Fritz08.09.04 12:35
Re: Anwendungsordner freigeben1.430Fritz11.09.04 10:26
Re: Anwendungsordner freigeben1.510WaldiMaywood11.09.04 12:10
Re: Anwendungsordner freigeben1.441Fritz11.09.04 12:22
Re: Anwendungsordner freigeben1.462Fritz12.09.04 14:44
Re: Anwendungsordner freigeben1.419WaldiMaywood12.09.04 17:33
Re: Anwendungsordner freigeben1.396Fritz12.09.04 17:54
Re: Anwendungsordner freigeben1.464WaldiMaywood13.09.04 16:51
Re: Anwendungsordner freigeben1.581Fritz13.09.04 18:06
Re: Anwendungsordner freigeben1.383WaldiMaywood13.09.04 18:40
Re: Anwendungsordner freigeben1.562Fritz13.09.04 18:48
Re: Anwendungsordner freigeben1.421WaldiMaywood14.09.04 20:39
Re: Anwendungsordner freigeben1.423Fritz14.09.04 21:57
Re: Anwendungsordner freigeben1.438WaldiMaywood14.09.04 22:54
Re: Anwendungsordner freigeben1.423Fritz15.09.04 15:20
Re: Anwendungsordner freigeben1.578WaldiMaywood15.09.04 15:32
Re: Anwendungsordner freigeben1.462Fritz05.09.04 18:50
Re: Anwendungsordner freigeben1.405Fritz15.09.04 16:30
Re: Anwendungsordner freigeben1.613WaldiMaywood15.09.04 19:10
Re: Anwendungsordner freigeben1.373Fritz15.09.04 20:18
Re: Anwendungsordner freigeben1.397WaldiMaywood15.09.04 20:28
Re: Anwendungsordner freigeben1.662Fritz15.09.04 21:55
Re: Anwendungsordner freigeben1.393WaldiMaywood15.09.04 22:21
Re: Anwendungsordner freigeben1.409Fritz16.09.04 08:05
Re: Anwendungsordner freigeben1.484WaldiMaywood16.09.04 18:24
Re: Anwendungsordner freigeben1.460Fritz16.09.04 18:53
Re: Anwendungsordner freigeben1.463WaldiMaywood16.09.04 19:06
Re: Anwendungsordner freigeben1.448Fritz16.09.04 20:02
Re: Anwendungsordner freigeben1.373WaldiMaywood16.09.04 20:10
Re: Anwendungsordner freigeben EDIT1.410WaldiMaywood16.09.04 20:20
Re: Anwendungsordner freigeben1.489Fritz16.09.04 20:56
Re: Anwendungsordner freigeben1.631WaldiMaywood16.09.04 21:45
Re: Anwendungsordner freigeben1.443Fritz16.09.04 21:52
Re: Anwendungsordner freigeben1.374WaldiMaywood17.09.04 12:45
Re: Anwendungsordner freigeben1.407Fritz17.09.04 17:20
Re: Anwendungsordner freigeben1.469WaldiMaywood20.09.04 08:56
Re: Anwendungsordner freigeben1.419Fritz20.09.04 11:31
Re: Anwendungsordner freigeben1.495WaldiMaywood26.09.04 00:58
Re: Anwendungsordner freigeben1.400Fritz26.09.04 09:14
Re: Anwendungsordner freigeben1.422WaldiMaywood26.09.04 14:46
Re: Anwendungsordner freigeben1.405Fritz26.09.04 15:27

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel