|
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 |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 21.04.2005 um 09:09 Uhr (0)
Hi Feyza, um das Thema wieder aufzurollen ... ... versuch mal folgendes ... Code: sub ttt() Dim objShell As IShellDispatch2 Dim objFSO As FileSystemObject Dim strDir As String Dim objFolder As Folder Dim objFolder2 As Folder2 Dim test As FolderItem2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:") strDir = CStr(objFolder) Set objShell = CreateObject("Shell.Application") Set objFolder2 = objShell.Namespace("" & strDir & "") Set test = objFolder2.ParseName(" ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
Feyza am 21.04.2005 um 13:47 Uhr (0)
Hallo BloodMess, Daaaaaaaaaannnnke schönnn : )) Das war genau das, was ich brauche : ) Schöne Grüße Feyza : ) ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 21.04.2005 um 14:37 Uhr (0)
Hi Feyza, nun würde mich aber mal interessieren, wozu Du den Besitzer einer Datei ermitteln musst? Mir fällt da nicht so wirklich eine Anwendung zu ein. Gruss TP ------------------
|
| In das Form VBasic wechseln |
