|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 14.04.2005 um 15:05 Uhr (0)
Hallo Feyza, ein komplettes Beispiel, zum herunterladen, findest Du hier http://www.xcelfiles.com/Shell32_01.html . Mit einem klick auf GetWorkBook bekommst Du die ZipDatei. Es basiert zwar auf Excel, aber der Code in VB bleibt ja in etwa der Selbe. Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
Feyza am 14.04.2005 um 17:01 Uhr (0)
Hallo BloddyMess, es scheint so, das Excel VBA irgendwie eine andere Sprache spricht : ) Habe bei diesem Modul speziel auf Besitzer leider kein Hinweis gefunden. Kannst Du mir da vielleicht weiterhelfen?! Option Explicit ///////////////////////////////////////////////////////////////////////////// // Retrieve Detailed Summary Information for a File // Description: // Uses the Shell s Application object to retrieve detailed // summary information including Name, Size, Owner, and file attributes // for ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 14.04.2005 um 18:44 Uhr (0)
Hallo Feyza, beim debuggen findet er mit objFolder.GetDetailsOf(objFolder.items, i) die einzelnen Eigenschaften (Details) der Datei und schreibt diese in den Tabellenkopf. Dabei interessiert Dich aber nur, wenn Du den Besitzer haben möchtest -- objFolder.GetDetailsOf(objFolder.items, 8) ... hier steht der Eigentümer (Owner) der Datei drinnen. Bisher wurden also nur die Überschriften geschrieben. Ab jetzt wird es interessant ... Er steigt in die ForSchleife ein und zappt wieder durch die ganzen Details ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 14.04.2005 um 19:22 Uhr (0)
Hallo Feyza, wollte eigentlich etwas anderes machen, aber es hat mir keine Ruhe gelassen ... Code: Sub test() Dim objShell As Object Dim objFSO As New FileSystemObject Dim filFile As File Set filFile = objFSO.GetFile( C:Dokumente und EinstellungenTadeusPEigene DateienEigene BilderBeispiel.jpg ) Set objShell = CreateObject( Shell.Application ) Set objFolder = objShell.Namespace(filFile.Path) Debug.Print objFolder.GetDetailsOf(filFile.Path, 8) End Sub Voraussetzung ist ein Verweis auf die Microsoft ...
|
| In das Form VBasic wechseln |
|
VBasic : Textdatei in Comboxen verteilen
StefanBerlitz am 15.04.2005 um 08:19 Uhr (0)
Hallo Feyza, ich versteh leider nicht, was du machen möchtest: in meinem VBA Programm habe ich 6 Comboboxen. So weit verstanden, 6 Comboboxen. Wenn ich die Form frmAuswahl öffne, möchte ich diese txt Datei einlesen. ALso diese Datei einlesen, soweit auch klar. Ich denke das hast du schon? Sonst Stichwort Open file ... und Line Input # ... In die erste Combobox sollen die Angaben bis zum 1. ; in der zweiten Combobos bis zum 2. ; Das verstehe ich nicht mehr. Bis zum 1.? Ersten was? Oder meinst du ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
Feyza am 20.04.2005 um 09:01 Uhr (0)
Guten Morgen BloodyMess : ), danke für Deine Mühe. Kann man den Besitzer vielleicht noch in einem Textfeld anzeigen lassen ?! Schönen Gruß Feyza : ) ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 09:51 Uhr (0)
Hi Feyza, nu freilich kann man das ... Code: myForm.myTextFeld.value = objFolder.GetDetailsOf(filFile.Path, 8) Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
Feyza am 20.04.2005 um 10:24 Uhr (0)
Hallöchen BloodMess, VB erkennt das value nicht. Fehler beim Komplilieren Methode oder Mitgliedsdaten nicht gefunden. Muss man noch ein Verweis machen, wenn ja, welches : ) ?! Schönen Gruß Feyza : ) ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 10:37 Uhr (0)
Hi Feyza, für ein TextFeld muss man keinen Verweis setzen! Kann es sein, das es kein Textfeld ist? Vielleicht ein Bezeichnungsfeld? Dann muss es myForm.MyLabel.Caption = ... heissen. Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
Feyza am 20.04.2005 um 11:24 Uhr (0)
Hallo BloodMess, habe dir den Testprogramm als Anhang beigelegt. Es ist ein Textfeld. Habe dies auch mit einer Bezeichnungsfeld versucht. Schaust Dir bitte an : ) Schönen Gruß Feyza : ) ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 12:07 Uhr (0)
Hi Feyza, mir ist wohl ein Fehler unterlaufen, weil auch ich nicht alles verstehe. Code: Dim objShell As Object Dim objFSO As New FileSystemObject Dim filFile As File Dim objFolder As Object Set filFile = objFSO.GetFile( C:TempSXE_LOG.html ) Set objShell = CreateObject( Shell.Application ) Set objFolder = objShell.NameSpace( filFile.ParentFolder.Path ) Form1.Label1.Caption = objFolder.GetDetailsOf(filFile.Path, 8) Form1.Text1.Text = objFolder.GetDetailsOf(filFile.Path, 8) probier es nochmal so ... ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
Feyza am 20.04.2005 um 12:21 Uhr (0)
Hallo BloodyMess, jetzt zeigt er mir den Text Eigentümer , aber nicht den Namen des Users, dem die Datei gehört. Bei Eigenschaften-- Sicherheitseinstellungen-- Erweitert-- Besitzer Aktueller Besitzer dieses Elements hier steht ein Name drinnen, diese Angabe brauche ich : ) Weisst Du vielleicht dazu auch eine Lösung? Danke Dir : ) Feyza : ) ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 13:20 Uhr (0)
Hallo Feyza, dann mach es erstmal wie oben beschrieben, über den Umweg, das Du nach der Datei abfragst. Mehr kann ich im Moment nicht tun. Stehe gerade auch auf dem Schlauch. Gruss TP ------------------
|
| In das Form VBasic wechseln |
