vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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

Allgemeine Diskussionen
Re: VB6 
Autor: Grauer Wolf
Datum: 15.01.03 10:23
Hallo, Dieter
nach dem Dein Tipp anfangs ganz gut geklappt hat, habe ich doch noch ein Problem.
Wenn ich eine Datei (in diesem Fall "VResults.xls") in mein spezielles Verzeichnis ("c:\programme\varian\") mit kopieren/einfügen anlege, funktioniert es einwandfrei, ich bekomme als Ergebnis des Ereignisses den Dateinamen angezeigt. Aber wenn Excel selbst diese Datei dort anlegt, bekomme ich statt dem Dateinamen nur den Namen des letzten Verzeichnisses (in diesem Fall "Varian") zurück.
Ich habe ganz emotionslos mal folgendes zum Testen ausprobiert.
---------------------------------------
Option Explicit

Private Sub Command1_Click()
Kill ShellSpy1.FolderPath + "\" + Text1.Text
Text1.Text = ""
End Sub

Private Sub Form_Load()
ShellSpy1.Enabled = True
ShellSpy1.FolderPath = "c:\programme\varian\"
ShellSpy1.FolderToWatch = mbuserdefinedPath
ShellSpy1.ItemEvents = True
End Sub

Public Sub ShellSpy1_ShellUpdated(ByVal EventID As MBShellSpy.mbShellEventConstants, ByVal DisplayName As String, ByVal Path As String, ByVal PIDL As Long, ByVal DisplayName2 As String, ByVal Path2 As String, ByVal PIDL2 As Long)
Select Case EventID
Case mbItemCreated:
Text1.Text = DisplayName
End Select
End Sub
-------------------------------------------------------------------------------

Mit freundlichen Grüßen
Wolfgang
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB6635Grauer Wolf12.01.03 18:29
Re: VB6493ModeratorDieter12.01.03 23:36
Re: VB6458Grauer Wolf13.01.03 07:39
Re: VB6362Grauer Wolf15.01.03 10:23
Re: VB6358ModeratorDieter15.01.03 10:25

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