| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 03:12:27 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=6688d05afa6b09543240b7a5b345059c50b0bca864ab1d0ff955424404ca2af3a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%229TKjRYnhNITpjblj4IDQpPNi5ioKvcXZ%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d36a699b77e9c3-BLR
recursividad - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub ListaArchivos(directorioinicial As String)
- Dim file As String
- Dim directoryName As String
- Dim arrayDirectorio As New String[]
- For Each directoryName In Dir(directorioinicial, "*", gb.Directory)
- 'añado al array el subdirectorio encontrado
- arrayDirectorio.add(directoryName)
- Next
- For Each directoryName In arrayDirectorio
- For Each file In Dir(directorioinicial & "/" & directoryName)
- Print "Directorio: ", directorioinicial & "/" & directoryName, "archivo: ", file
- Next
- 'ahora busco en el subdirectorio si hay más archivos... ¡¡ recursivamente !!
- ListaArchivos(directorioinicial & "/" & directoryName)
- Next
- Return
- End
Advertisement
Add Comment
Please, Sign In to add comment
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 2 sec ago | 0.25 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ P
JavaScript | 6 sec ago | 0.25 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 8 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ X
JavaScript | 15 sec ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ E
JavaScript | 17 sec ago | 0.25 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 21 sec ago | 0.10 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ S
JavaScript | 25 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ T
JavaScript | 26 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
