[VB6] Somma di valori con Case

[fosforo]

Ciao
Ho questo codice :

Do
FileInfo = GetFileName(DirInfo(iPos).lpBuffer, lPointer)
strPath = Trim(DirInfo(iPos).lpszDirName) & "\" & FileInfo.Name
Dim Add
Select Case FileInfo.Type
Case FILE_ACTION_ADDED
Add = 10
strmsg = "[" & strPath & "] was added to the directory."
Case FILE_ACTION_REMOVED
strmsg = "[" & strPath & "] was removed from the directory."
Case FILE_ACTION_MODIFIED
Add = Add + 1
strmsg = "[" & strPath & "] was modified..."
Case FILE_ACTION_RENAMED_OLD_NAME
strmsg = "[" & strPath & "] was renamed and this is the old name."
Case FILE_ACTION_RENAMED_NEW_NAME
strmsg = "[" & strPath & "] was renamed and this is the new name."
End Select

Ho la variabile ADD che quando passa da "Case FILE_ACTION_ADDED" diventa valore =10.
Poi quando passa da "Case FILE_ACTION_MODIFIED" dovrebbe additivarsi di 1.
Non capisco perchè perde il valore 10 e quando passa da "Case FILE_ACTION_MODIFIED" somma sempre da 1, come se una volta finito "Case FILE_ACTION_ADDED" resettasse il valore di ADD.

[oregon]

Beh ... la

Dim Add

sta all'interno del ciclo, quindi ...

[fosforo]

Ciao e grazie.
Adesso ho messo la mia Dim all'inizio della Sub dove dichiaro tutte le variabili ma la cosa non cambia.

Ti chiedo un pochino di pazienza e aiuto.

[oregon]

Mi mostri tutta la Sub, dall'inizio alla fine?

[fosforo]

Private Sub HandleDirectoryChanges()
On Error Resume Next

Dim fContinue As Boolean
Dim lPointer As Long, iPos As Integer
Dim lngCompKey As Long
Dim lpOverlapped As OVERLAPPED
Dim fni As FILE_NOTIFY_INFORMATION
Dim DI As DIRECTORY_INFO
Dim FileInfo As FileChange
Dim Add

'// Retrieve the directory info for this directory
'// through the completion key
ret = GetQueuedCompletionStatus(hIOCompPort, _
lpBytesReturned, _
lngCompKey, _
oOverLapped, _
100) '//Put INFINITE if synchronous

If (ret <> 0) Then
lPointer = 0

'//Findout which directory is this based on completionkey
For iPos = 0 To numDirs - 1
If DirInfo(iPos).lComplKey = lngCompKey Then Exit For
Next

Do
FileInfo = GetFileName(DirInfo(iPos).lpBuffer, lPointer)
strPath = Trim(DirInfo(iPos).lpszDirName) & "\" & FileInfo.Name
Select Case FileInfo.Type
Case FILE_ACTION_ADDED
Add = 10
strmsg = "[" & strPath & "] was added to the directory."
Case FILE_ACTION_REMOVED
strmsg = "[" & strPath & "] was removed from the directory."
Case FILE_ACTION_MODIFIED
Add = Add + 1
strmsg = "[" & strPath & "] was modified..."
Case FILE_ACTION_RENAMED_OLD_NAME
strmsg = "[" & strPath & "] was renamed and this is the old name."
Case FILE_ACTION_RENAMED_NEW_NAME
strmsg = "[" & strPath & "] was renamed and this is the new name."
End Select

List2.AddItem strmsg & "Add è = " & Add

lPointer = FileInfo.NextPos

Loop While (lPointer > 0)

ret = ReadDirectoryChangesW(DirInfo(iPos).hDir, _
DirInfo(iPos).lpBuffer(0), _
MAX_BUFFER, _
bWatchSubDir, _
lngFilter, _
lpBytesReturned, _
DirInfo(iPos).oOverLapped, _
ByVal 0&)
End If

End Sub

[oregon]

Subito dopo Add = 10 e subito dopo Add = Add + 1 scrivi

Debug.Print Add

ed esegui il programma.

Controlla nella finestra di debug, quali valori sono visualizzati ...

[fosforo]

Per questo ti chidevo molta pazienza.
La riga l'ho messa ma non so dov'è la finestra di debug.

[oregon]

Originariamente inviato da fosforo
Per questo ti chidevo molta pazienza.
La riga l'ho messa ma non so dov'è la finestra di debug.

Ctrl-G ... la finestra immediata ...

[fosforo]

Grazie
In realtà mi ero sbattuto e l'avevo trovata.
Stampa

10
1
2

[oregon]

Molto probabilmente (ma questo lo puoi verificare solamente tu), la sub viene eseguita una prima volta (e Add diventa 10) e poi termina per essere richiamata una seconda volta cosi' che Add parte da 0 e poi nel ciclo va a 1 e 2 ...