Como determinar se existem arquivos no disco

Como determinar se existem arquivos em um disco? Acredito que muitas pessoas ficarão curiosas sobre como devemos fazer um julgamento? Agora, vamos dar uma olhada no método para determinar se existem arquivos no disco. Amigos interessados ​​vêm e dê uma olhada.

<%

objFolder Dim

Dim objfso

dim j

set fso = server.createObject ("scripting.filesystemobject")

set objFolder = fso.getFolder ("d:/")

Se objFolder.size> 0 então

j = 0

Para cada objfile em ObjFolder.Files

j = j+1

próximo

Se j> 0, então 'existem arquivos neste disco, há um total de arquivos j

.....

outro

..... 'não há arquivo neste disco

final se

outro

..... 'não há arquivo neste disco

final se

%>

O exposto acima é todo o conteúdo deste artigo. Espero que seja útil para o aprendizado de todos e espero que todos apoiem o novo canal de tecnologia.