Newsgroup: it.comp.appl.access
Titolo: eseguire un kill solo se nella cartella c'è almeno un file

qualcuno a idea di come si possa interrogare una cartella e vericcare se è 
presente almeno un file?
grazie. 

 grazie.
Prova con questa procedura, io la utilizzo su un progetto in vb6, dovresti 
adattarla al volo!
Dichiarazioni API
Option Explicit
'costanti API
Public Const MAX_PATH = 260
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
'Type API
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
'chiamate a Function API
Public Declare Function FindFirstFile Lib "kernel32.dll" Alias 
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As 
WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32.dll" Alias 
"FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) 
As Long
Public Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As 
Long) As Long
Modulo:
Public Function NumFiles(sPath As String) As Long
Dim f As WIN32_FIND_DATA
Dim hFile As Long
NumFiles = 0
'Aggiungere la wildchar alla path di ricerca
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sPath = sPath & "*.*"
'comincia la numerazione file nella path specificata
hFile = FindFirstFile(sPath, f)
If hFile = INVALID_HANDLE_VALUE Then Exit Function
'Esclude le subdirectory dal conteggio
If (f.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = 0 Then     NumFiles = 
1
Do While FindNextFile(hFile, f)
    If (f.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = 0 Then NumFiles = 
NumFiles + 1
Loop
'Chiude la ricerca file
FindClose (hFile)
End Function
In un Form:
Private Sub Command1_Click()
MsgBox NumFiles("c:\") & " Files in C:\"
End Sub
Fammi sapere se va bene.
Ciao.
-- 
**********
EmMeCi
********** 

 Ciao.
Sicuramente Moreno, ops Marco Tosto ha già avuto risposta...!
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Ciao,
no, non scherzo! Marco chiedeva di sapere se nella cartella dove vuole 
lanciare il kill erano presenti dei file e non come doveva fare per 
killarli.
Questo č quello che ho interpretato dal post, se mi fossi sbagliato ... 
chiedo scusa!
Ciao,
-- 
**********
EmMeCi
**********
Blog: 
http://www.setfocus.it

> Blog: 
http://www.setfocus.it
Bravo Mauro, carino il blog (fototessera a parte!!!)
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it


Ero sotto stress da matrimonio all'epoca ... mi ero appena trasferito e 
correvo come un disperato dalle prime ore del mattino fino a sera tardi ... 
e proprio quel giorno ero incavolatissimo per 150 bomboniere SBAGLIATE!!!!


 Ciao,
Io ho interpretato che volesse sapere se una Cartella è vuota prima
di eseguire il KILL perchè ovviamente restituisce errore nel caso
sia vuota...!
Conoscendo la bestia vedrai che non mi sbaglio, in ogni caso
quanto proponi è troppo complesso, è meglio usare FSO e ricavare
da li il numero di Files con solo 2 righe di codice.
Ciao


 ha scritto nel messaggio 
news:3989ff11400e006647...@mygate.mailgate.org...

Hai ragione, a volte sono un pò contorto con i miei giri di codice!!!
Ciao ;o)



...cough cough... (colpo di tosse)!
ho cambiato la foto ... effettivamente ... era una schifezza!
Quella nuova non č meglio ma almeno ... c'č mio figlio a portare una ventata 
di bellezza\freschezza ;o)
Ciao!
-- 
**********
EmMeCi
**********
Blog: 
http://www.setfocus.it


> --
MERAVIGLIOSA la parte sx della foto... peccato che va a degradare!!
;-)
Complimeti, che gioia lo sgardo di Valentino


 ha scritto nel messaggio 
news:drkta9$ok8$1...@area.cu.mi.it...

Grazie! (per Valentino, non per il degrado!!!!!!!!!!!!!!)
Passo e chiudo - non era questo l'argomento del thread - !
