dimecres, 16 de febrer de 2011

La funció DIR en VB

'#########
Public Sub LectorNiveles()
CurrentDb.Execute "delete from Niveles"
a = 0
Fichero = Dir("C:\Barcelona\*.jnl")
Do While Fichero <> ""
a = a + 1
importa_text "C:\Barcelona\" & Fichero
Fichero = Dir
Loop
MsgBox "fets " & a & " Fitxers JNL"
End Sub
'#########

Aquest bonic codi fa servir la funció dir, però... com funciona. Res més simple que provar-ho dins la finestra INMEDIATO. S'enten de seguit:

?dir ("C:\Barcelona\*.jnl")
Alfa.jnl
?dir
Beta.jnl
?dir
Gamma.jnl

El primer ens situa en la carpeta que volem
Cada dir posterior avança una línia en el resultat, es a dir, com si fos la línia següent en l'antic DOS.

(que ningú s'espanti pel jnl; és un tipus especial de txt vinculat a MicroStation)

Cap comentari:

Publica un comentari a l'entrada