• Dir (stringa, attributo)
restituisce il nome del file o directory
non crea un array dei file trovati, estrae solamente il primo file o quello successivo
accetta i caratteri jolly * e ?
il valore sarà solamente il nome del file e della directory senza tutta la path



sintassi: file

• Dir("PATH\NOME FILE") restituisce il nome del file senza la path



• Dir("PATH\NOME FILE", attributo) restituisce dipende dall'attributo
• vbnormal file privi di attributi (predefinito)
• vbReadOnly file di sola lettura oltre ai file privi di attributi
• vbHidden file nascosti oltre ai file privi di attributi
• vbSystem file di sistema oltre ai file privi di attributi
• vbVolume etichetta di volume. Se sono specificati altri attributi vbVolume verrà ignorato
• vbDirectory directory + file privi di attributi
• vbArchive file è stato modificato dall'ultimo backup
• vbAlias file ha un nome diverso



• Dir() restituisce il nome del file/directory seguente



esempi: MyFile = WIN.INI
MyFile = Dir("C:\WINDOWS\WIN.INI")





esempi: MyFile = nome del primo file che inizia per filenome .ini
MyFile = Dir("C:\WINDOWS\filenome*.ini")





Dir()
in caso di utilizzo dei caratteri jolly é possibile utilizzare Dir() che restituirà il nome dell'elemento seguente
in questa maniera si possono creare cicli Do While in cui si ciclano i risultati fino a che la striga non é vuota



esempio: ciclo tutti i file secondo criterio
MyFile = Dir("C:\WINDOWS\filenome*.ini") trovo il primo elemento
Do while MyFile <>"" ciclo gli altri elementi

...
MyFile = Dir()

Loop




sintassi: directory
Dir("Directory", vbDirectory) restiutuisce il nome della directory stessa senza la parte path
Dir("Directory\*", vbDirectory) restiutuisce il nome della prima subdirectory




esempi: MyDir = directory (che é il nome della directory)
MyDir = Dir("C:\directory", vbDirectory)





esempi: verifico se esiste una directory
MyDir = Dir("C:\directory", vbDirectory)
if MyDir <> "" THEN ... se esiste





esempi: scorro tutte le subdirectroy e segno in una variabile il nome dell'ultima (ciclo ascensionale)
testodir = "testo filtro direcorry" per fare un filtro di solo alcune subdirectories
root = "\\path\*" & testodir & "*" directory root con le subdirectories da listare
directory = "" variabile a cui daremo il nome della subdirectroy finale
listdirectory = Dir(root, vbDirectory) lista delle subdirectories

Do While listdirectory <> "" ciclo scorre tutte le subdirectories fino a che non é vuota la lista

directory = listdirectory setta nella variabile la subdirectory trovata prima di passare alla prossima
listdirectory = Dir() passa alla prossima

Loop



conteggio file/directory
per sapere quanti file o directory ci sono occorre creare un ciclo Do While in quanto il comando non crea un array degli elementi



• solo files
conta = 0
MyFile = Dir("path\*")
Do While MyFile <> ""

conta = conta + 1
MyFile = Dir() va al prossimo file

Loop



• solo files + directories
conta = 0
MyFile = Dir("path\*", vbDirectory)
Do While MyFile <> ""

conta = conta + 1
MyFile = Dir() va al prossimo file o directory

Loop



• solo directories
occorre analizzare il valore e vedere se é una directoy
conta = 0
MyFile = Dir("path\*", vbDirectory)
Do While MyFile <> ""

If GetAttr("path\" & MyDir) = vbDirectory Then conta = conta + 1 conta solo se é una directory
MyFile = Dir() va al prossimo file o directory

Loop

file

• Kill
cancello il/i file
accetta anche caratteri jolly *
attento elimina i files senza usare il cestino di Windows



sintassi:
Kill("PATH\NOME FILE") normale


con FileSystemObject
Dim FSO
Dim fulNameFile As String
fulNameFile = "path\file"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile fulNameFile, True





esempi:
Kill "C:\Users\Ron\Test\testo.txt"
Kill "C:\Users\Ron\Test\*.*"
Kill "C:\Users\Ron\Test\*.xl*"





esempio: verifico se presente un file ed in caso lo cancello
if Dir(nomefile) <> "" Then Kill nomefile






se non funziona (da testare)

1. verifica se il file é aperto
2. cambia lo stato in sola lettura (potrebbe agevolare la chiusura senza salvataggio)
3. chudi senza salvare
4. prova a cancellare di nuovo il file


If IsWorkBookOpen("C:\directory\nomefile.xlsx") Then verifica se il file é aperto

If Workbooks("nomefile.xlsx").ReadOnly = True Then verifica se già in sola lettura

Workbooks("nomefile.xlsx").ChangeFileAccess Mode:=xlReadOnly modifica stato in sola lettura

End If

Workbooks("nomefile.xlsx").Close SaveChanges:=False chiudi il file

Kill "C:\directory\nomefile.xlsx" cancella il file


End If

per IsWorkBookOpen vedi metodi - verifica - file aperto/stato





• FileCopy
copio il file da origine a destinazione
vanno indicati i nomi dei file di origine e destinazione
attento: il comando sovrascrive in automatico senza dirlo
inoltre non funziona se il file di origine é aperto va quindi usato il comando DOS copy tramite Shell

sintassi:
FileCopy origine, destinazione

esempi: copio e rinomino un file
FileCopy "C:\Users\Ron\Test\testo.txt", "C:\root\testocopiato.txt"

esempi: copio e rinomino un file
origine = "C:\Users\Ron\Test\testo.txt"
destinazione = "C:\root\testocopiato.txt"
FileCopy origine, destinazione





• Name
muovo o rinomino file/directory da origine a destinazione
vanno indicati i nomi dei file/directory di origine e destinazione

sintassi:
Name origine As destinazione

esempio: muovo e rinomino un file
Name "C:\Users\Ron\Test\testo.txt" As "C:\root\testocopiato.txt"

esempi: muovo una directory con tutto il suo contenuto
Name "C:\Users\Ron\Test1" As "C:\Users\Ron\Test2"
Name "C:\Users\Ron\Test1\" As "C:\Users\Ron\Test2\" funziona con o senza \

directory

• MkDir
creo la directory

sintassi:
MkDir(nomedirectorycompleto)

esempio: creo una directory
MkDir "C:\Users\Ron\Test\"




esempi: creo una directory se non esisteverifico se esiste una directory
MyDir = Dir("C:\directory", vbDirectory)
if MyDir = "" THEN

MkDir "C:\directory"

End if




• RmDir
elimino la directory se vuota

sintassi:
RmDir(nomedirectorycompleto)

esempio: elimino una directory vuota
RmDir "C:\Users\Ron\Test\"

esempio: verifico se presente una directory ed in caso o la creo o cancello il contenuto
directory = "C:\download\prova\"
If Len(Dir(directory, vbDirectory)) = 0 Then verifico se la directory é esiste

MkDir directory

Else

Kill directory & "*.*"

End If




• apre la directory attuale
comando che apre la directory attuale del file in uso
Shell "C:\WINDOWS\explorer.exe """ & ActiveWorkbook.path & "", vbNormalFocus