[Risolto] Capire se una Directory esiste

[antoniomacosx]

Ho bisogno di scrivere una macro per verificare l'esistenza o meno di una cartella, credo si possa fare con la funzione Dir, ma non ho ancora capito come utilizzarla.
Qualcuno sa aiutarmi?

[patel]

Codice: Seleziona tutto

Sub Dir_Esiste
Doc = Thiscomponent
Sheet = Doc.Sheets(0)
NomeDir = ConvertToUrl("percorsodirectory") ' 
if FileExists(NomeDir ) then 
     print "Dir già esistente"
else
     print "non esistente"
   end if
End Sub

[antoniomacosx]

Grazie per la risposta
Ho provato il tuo codice, ma ricevo l'errore in figura.
Proprietà o metodo non trovati Sheets



Suggerimenti?
Grazie ancora

[patel]

controlla bene Sheet = Doc.Sheets(0)
tra parentesi ci deve essere ZERO
se non ti funziona allega il file

[antoniomacosx]

Niente non va ho allegato il file, grazi per l'aiuto

[patel]

credevo che tu usassi Calc, non sono pratico di Writer, ma prova ad eliminare le righe
Doc = Thiscomponent
Sheet = Doc.Sheets(0)

N.B
quando ti riferisci a Writer o Base indicalo nel titolo, quasi tutti qui usano macro su Calc

[antoniomacosx]

Ok grazie
Ora funziona!!!
Utilizzo un vecchio manuale di StarOffice 7 sulle macro, l'unico che ho trovato in italiano, ma non c'era scritto della funzione FileExists
Grazie

P.S.
In realtà mi serviva per Base, ma ho visto che come mi hai detto funziona d'ovunque