vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 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

Fortgeschrittene Programmierung
Re: Und worin siehst Du jetzt das Problem? 
Autor: Sheridan
Datum: 04.10.02 08:28
Ja, das stimmt.

Ich habe auch die API-Funktion ReadDirectoryChanges gefunden, aber irgendwie funkt es nicht.

Im Formular:

Private Sub Command1_Click()

Dim nFehler As Long
Dim strDatei As String
Dim lngFAdr As Long

' Handle schließen
If m_lngHandle <> 0 Then
CloseHandle m_lngHandle
End If

' Ordner öffnen
strDatei = "X:ProjekteMSCONSMSCONS DateienAlleDBZiele"
If m_lngHandle = 0 Then
m_lngHandle = CreateFile( _
strDatei, _
FILE_LIST_DIRECTORY, _
FILE_SHARE_READ Or FILE_SHARE_DELETE, _
-1, _
OPEN_EXISTING, _
FILE_FLAG_BACKUP_SEMANTICS, _
0)
End If
' Ordner Änderung aktivieren
If m_lngHandle <> -1 Then
nFehler = ReadDirectoryChanges( _
m_lngHandle, _
m_ChangeInfo, _
255, _
0, _
FILE_NOTIFY_CHANGE_SIZE, _
255, 0, 0)
Else
nFehler = GetLastError()
Fehler (nFehler)
End If

If nFehler <> 0 Then
nFehler = GetLastError()
Fehler (nFehler)
End If

End Sub

Im Modul:Public Type FILE_NOTIFY_INFORMATION
NextEntryOffset As Long
Action As Long
FileNameLength As Long
FileName As String * 1
End Type
Public m_ChangeInfo As FILE_NOTIFY_INFORMATION

Public Type OVERLAPPED
Internal As Long
InternalHigh As Long
Offset As Long
OffsetHigh As Long
hEvent As Long
End Type
Public m_nOverlapped

Public Function DirChanged( _
ByVal dwErrorCode As Long, _
ByVal dwNumberOfBytesTransfered As Long, _
ByRef lpOverlapped As OVERLAPPED) As Variant
MsgBox "Änderung" bzw. später Tu was!
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Suche Event für Datei kopiert!81Sheridan03.10.02 14:44
Re: Suche Event für Datei kopiert!253ModeratorDieter03.10.02 14:48
Re: Suche Event für Datei kopiert!62Sheridan03.10.02 14:51
Für sowas braucht man doch kein Control tststs oT206unbekannt03.10.02 14:59
Re: Suche Event für Datei kopiert!229unbekannt03.10.02 14:55
Re: Suche Event für Datei kopiert!59Sheridan03.10.02 15:00
Und worin siehst Du jetzt das Problem?229unbekannt03.10.02 15:03
Re: Und worin siehst Du jetzt das Problem?75TheTimoo03.10.02 22:39
Re: Und worin siehst Du jetzt das Problem?51Sheridan04.10.02 08:28
Hier die Definitionen55Sheridan04.10.02 08:29

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