trovare file mancante

**yro** · 26-07-2006, 17:18

ciao...
con il seguente codice stampo a video sulla prima colonna i file che dovrebbero essere presenti in una cartella su server... e nella seconda colonna i file che sono realmente presenti sulla cartella sul server.

codice:

<%
strId = request.QueryString("id")

Set conn = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM mobyle ORDER BY store ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, MM_users_STRING, 3, 3
%>

<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../blocconote/blocconote.css" rel="stylesheet" type="text/css">
</head>

<body>
<table align="center" border="1">
<tr><td>File da caricare</td><td>File su server</td></tr>
<tr>
<td valign="top">
<%do while not rs.EOF%>
<%=rs("store")%>.txt

<%rs.movenext
loop%>
</td>
<td valign="top">
<% 

Dim objFso, objFolder, objFiles, strFolder, strFile 
strPath = "/dati/public/venduto/"&strID&"" 

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

For Each strFile in objFiles 
Response.Write(strFile.name & "
") 
Next 

Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>

</td>

</tr>
</table>
</body>
</html>

dovrei riuscire a verificare eventuali discrepanze, ovvero se i file sul server sono di meno o di più e quali sono i file... come posso fare??

**Roby_72** · 26-07-2006, 17:30

Leggi i record della tabella e li metti in un array.
Leggi i file della cartella e li metti in un array.
Confronti un elemento del primo array con tutti gli elementi del secondo.
Dal loro Ubound() dovresti già sapere si vi siano discrepanze nel numero...

Roby

**Robycz** · 26-07-2006, 17:38

ma non si può usare Count()?

codice:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCartella = oFSO.GetFolder(Percorso)
Set objFileDellaCartella = objCartella.Files
numFile=objCartella.Files.Count()

vado controllo e torno...

**yro** · 26-07-2006, 17:40

dovrei anche stampare a video i file in più o in meno...

**Roby_72** · 26-07-2006, 17:41

Si ok ma lui vuole sapere quali file mancano e dove (db o cartella).

Roby

**Robycz** · 26-07-2006, 17:46

ah.. meno male.. son vecchietto ma almeno non fagiano..

caro yro,
prima controlli se il numero dei file è diverso,
se lo è li devi confrontare..

**yro** · 26-07-2006, 17:52

quelli estratti dal db sono esatti...

sono quelli sul server che devo controllare!

**yro** · 26-07-2006, 18:28

dunque ho fatto accussì:

codice:

do while not rs.EOF
arrai=arrai&","&rs("store")&".txt" 
rs.movenext
loop
vs=split(arrai,",")
for i=1 to ubound(vs)
response.write vs(i)
response.Write("
")
next

'e

For Each strFile in objFiles
arrai2=arrai2&","&strFile
Response.Write(strFile.name & "
") 
Next

è giusto?? :master:

**Roby_72** · 26-07-2006, 18:31

Basta questo:

if not rs.eof then
arr_db = rs.getRows()
end if

arr_db è un array a due dimensioni, il cui Ubound è:
tot_elementi = Ubound(arr_db,2)+1

Roby

**yro** · 26-07-2006, 18:37

Originariamente inviato da Roby_72
Basta questo:

if not rs.eof then
arr_db = rs.getRows()
end if

arr_db è un array a due dimensioni, il cui Ubound è:
tot_elementi = Ubound(arr_db,2)+1

Roby

:master:

non ho capito!! scusa!

Discussione: trovare file mancante

Strumenti discussione

Ricerca discussione

Visualizza

trovare file mancante

Permessi di invio