proceduraScopo
Crea una nuova cartella sul file system del server.
Sintassi
Applicazione.MakeDirectory(nuova cartella)
Argomenti
| Nuova Cartella | E' una stringa che contiene il percorso completo della cartella da creare (per esempio C:\WINDOWS\TEMP\Nuova Cartella). |
Esempio di codice
public boolean OggettoFS.Crea(
optional boolean ComeCartella = 0 // Vero se da creare come cartella
)
{
// Se non è specificato il percorso o il nome
if IsNull(Percorso) OR IsNull(Nome)
...
//
// Se esiste già
if Esiste()
...
//
// Se devo creare una cartella
if ComeCartella
{
EsempiMS.MakeDirectory(GetNamedPropertyValue(NomeCompleto))
//
return True
}
else // Se devo creare un file
{
// Provo a creare il file
try
{
int FileNumber = 0 //
//
// Ottengo un identificativo di file libero
FileNumber := FreeFile()
//
// Apro in creazione il file
EsempiMS.OpenFileForOutput(GetNamedPropertyValue(NomeCompleto), FileNumber)
//
// Chiudo il file
EsempiMS.CloseFile(FileNumber)
//
return True
}
catch
{
// Non sono riuscito a crearlo
return False
}
}
}
optional boolean ComeCartella = 0 // Vero se da creare come cartella
)
{
// Se non è specificato il percorso o il nome
if IsNull(Percorso) OR IsNull(Nome)
...
//
// Se esiste già
if Esiste()
...
//
// Se devo creare una cartella
if ComeCartella
{
EsempiMS.MakeDirectory(GetNamedPropertyValue(NomeCompleto))
//
return True
}
else // Se devo creare un file
{
// Provo a creare il file
try
{
int FileNumber = 0 //
//
// Ottengo un identificativo di file libero
FileNumber := FreeFile()
//
// Apro in creazione il file
EsempiMS.OpenFileForOutput(GetNamedPropertyValue(NomeCompleto), FileNumber)
//
// Chiudo il file
EsempiMS.CloseFile(FileNumber)
//
return True
}
catch
{
// Non sono riuscito a crearlo
return False
}
}
}
- Questa procedura crea una nuova cartella sul file system del server (non su quello del client).
- Se la cartella che si sta cercando di creare esiste già oppure è protetta la procedura non fa nulla.
Ultima modifica: 25/10/2016 / Validità: da 6.5.2680