Verificare l'esistenza di una directory - Cronologia

Vuott il 23:49, 24 giu 2024

2024-06-24T23:49:08Z

← Versione meno recente		Versione delle 17:49, 24 giu 2024
Riga 5:		Riga 5:

	Esempio pratico:		Esempio pratico:
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim ris, cartella As String		Dim ris, cartella As String
Riga 15:		Riga 15:
	Print "La Directory "; cartella; ris; " esiste !"		Print "La Directory "; cartella; ris; " esiste !"

	~~'''~~End~~'''~~		End
	Si può utilizzare anche la funzione "IsDir()".		Si può utilizzare anche la funzione "IsDir()".
	<BR>Se il file con il nome del percorso non esite, o se il file non è una directory, allora la funzione "IsDir()" restituisce ''Falso''.		<BR>Se il file con il nome del percorso non esite, o se il file non è una directory, allora la funzione "IsDir()" restituisce ''Falso''.
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim ris, cartella As String		Dim ris, cartella As String
Riga 28:		Riga 28:
	Print "Il percorso "; cartella; ris; " è una Directory !"		Print "Il percorso "; cartella; ris; " è una Directory !"

	~~'''~~End~~'''~~		End


Riga 42:		Riga 42:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim cartella As String		Dim cartella As String
	Dim drc As Pointer		Dim drc As Pointer

	cartella = "<FONT Color=~~gray~~>''/cartella/da/verificare''</font>"		cartella = "<FONT Color=darkgreen>''/cartella/da/verificare''</font>"

	drc = opendir(cartella)		drc = opendir(cartella)
	If drc == 0 Then Error.Raise("Directory inesistente !")		If drc == 0 Then Error.Raise("Directory inesistente !")

	~~'''~~End~~'''~~		End


Riga 92:		Riga 92:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim i As Integer		Dim i As Integer
Riga 98:		Riga 98:
	Dim percorso, s As String		Dim percorso, s As String

	percorso = "<FONT Color=~~gray~~>''/cartella/da/verificare''</font>"		percorso = "<FONT Color=darkgreen>''/cartella/da/verificare''</font>"

	i = <FONT color=#B22222>__xstat</font>(_STAT_VER_LINUX, percorso, st)		i = <FONT color=#B22222>__xstat</font>(_STAT_VER_LINUX, percorso, st)
Riga 105:		Riga 105:
	If st.st_mode And S_IFDIR Then Print percorso; " è una Directory."		If st.st_mode And S_IFDIR Then Print percorso; " è una Directory."

	~~'''~~End~~'''~~		End

Vuott il 01:44, 22 set 2022

2022-09-22T01:44:50Z

← Versione meno recente		Versione delle 19:44, 21 set 2022
Riga 31:		Riga 31:


	==Uso della funzione esterna ''opendir( )''==		==Uso della funzione esterna "opendir()"==
	Un'altra modalità prevede l'uso della funzione esterna "[http://man7.org/linux/man-pages/man3/opendir.3.html opendir()]", dichiarata nel file header "''/usr/include/dirent.h'' ".		Un'altra modalità prevede l'uso della funzione esterna "[http://man7.org/linux/man-pages/man3/opendir.3.html opendir()]", dichiarata nel file header "''/usr/include/dirent.h'' ".
	<BR>Tale funzione esterna restituisce un ''Puntatore'' valido, se non ha riscontrato errori nel tentativo di accesso alla ''Dyrectory'' impostata, altrimenti ritorna ''NULL'', che in Gambas corrisponde, come valore predefinito di una variabile di tipo ''Puntatore'', allo zero (0).		<BR>Tale funzione esterna restituisce un ''Puntatore'' valido, se non ha riscontrato errori nel tentativo di accesso alla ''Dyrectory'' impostata, altrimenti ritorna ''NULL'', che in Gambas corrisponde, come valore predefinito di una variabile di tipo ''Puntatore'', allo zero (0).

Vuott il 01:03, 1 set 2022

2022-09-01T01:03:05Z

← Versione meno recente		Versione delle 19:03, 31 ago 2022
Riga 32:		Riga 32:

	==Uso della funzione esterna ''opendir( )''==		==Uso della funzione esterna ''opendir( )''==
	Un'altra modalità prevede l'uso della funzione esterna "''[http://man7.org/linux/man-pages/man3/opendir.3.html opendir( )]''", dichiarata nel file header "''/usr/include/dirent.h''". Tale funzione esterna restituisce un ''Puntatore'' valido, se non ha riscontrato errori nel tentativo di accesso alla ''Dyrectory'' impostata, altrimenti ritorna ''NULL'', che in Gambas corrisponde, come valore predefinito di una variabile di tipo ''Puntatore'', allo zero (0).		Un'altra modalità prevede l'uso della funzione esterna "[http://man7.org/linux/man-pages/man3/opendir.3.html opendir()]", dichiarata nel file header "''/usr/include/dirent.h'' ".
			<BR>Tale funzione esterna restituisce un ''Puntatore'' valido, se non ha riscontrato errori nel tentativo di accesso alla ''Dyrectory'' impostata, altrimenti ritorna ''NULL'', che in Gambas corrisponde, come valore predefinito di una variabile di tipo ''Puntatore'', allo zero (0).

	Library "libc:6"		Library "libc:6"

Vuott il 01:01, 1 set 2022

2022-09-01T01:01:40Z

← Versione meno recente		Versione delle 19:01, 31 ago 2022
Riga 1:		Riga 1:
	Per verificare se una ''Directory'' esiste, si possono adottare ~~almeno due~~ modalità.		Per verificare se una ''Directory'' esiste, si possono adottare alcune modalità.


	==Uso delle risorse di Gambas==		==Uso delle risorse di Gambas==
	Si può utilizzare la funzione ''Exist( )'', la quale ritorna ''vero'' se il file o la cartella, indicati nel suo parametro, sono esistenti.		Si può utilizzare la funzione "Exist()", la quale ritorna ''vero'' se il file o la cartella, indicati nel suo parametro, sono esistenti.

	Esempio pratico:		Esempio pratico:
	'''Public''' Sub Main()		'''Public''' Sub Main()

	Dim ris, cartella As String		Dim ris, cartella As String

	cartella = "/tmp"		cartella = "/tmp"

	If Exist(cartella) ~~= False~~ Then ris = " non"		If Not Exist(cartella) Then ris = " non"

	Print "La Directory "; cartella; ris; " esiste !"		Print "La Directory "; cartella; ris; " esiste !"

	'''End'''		'''End'''
			Si può utilizzare anche la funzione "IsDir()".
			<BR>Se il file con il nome del percorso non esite, o se il file non è una directory, allora la funzione "IsDir()" restituisce ''Falso''.
	Si può utilizzare anche la funzione "''IsDir( )''", ~~la quale però ci dice solo~~ se ~~un dato percorso è o~~ non è una ~~cartella~~, ~~senza specificare se è esistente effettivamente:~~
	'''Public''' Sub Main()		'''Public''' Sub Main()

	Dim ris, cartella As String		Dim ris, cartella As String

	cartella = "/tmp"		cartella = "/tmp"

	If IsDir(cartella) ~~= False~~ Then ris = " non"		If Not IsDir(cartella) Then ris = " non"

	Print "Il percorso "; cartella; ris; " è una Directory !"		Print "Il percorso "; cartella; ris; " è una Directory !"
Riga 45:		Riga 43:
	'''Public''' Sub Main()		'''Public''' Sub Main()

	Dim cartella As String		Dim cartella As String
	Dim drc As Pointer		Dim drc As Pointer

	cartella = "/~~abcde~~"		cartella = "<FONT Color=gray>''/cartella/da/verificare''</font>"

	drc = opendir(cartella)		drc = opendir(cartella)
Riga 56:		Riga 54:


	==Uso della funzione esterna ''stat( )''==		==Uso della funzione esterna "stat()"==
	Un'altra modalità prevede l'uso della funzione esterna "''stat( )", dichiarata nel file header "''/usr/include/x86_64-linux-gnu/sys/stat.h''".		Un'altra modalità prevede l'uso della funzione esterna "stat()", dichiarata nel file header "''/usr/include/x86_64-linux-gnu/sys/stat.h'' ".

	~~Per utilizzare la funzione esterna ''stat()'', bisognerà attenersi in Gambas strettamente a quanto già precisato nella pagina di questa Wiki: [[Stat_()\|stat ()]]~~.

			Per utilizzare la funzione esterna "stat()", bisognerà attenersi in Gambas strettamente a quanto già precisato nella pagina di questa Wiki: [[Stat_()\|stat ()]].

	Mostriamo un esempio pratico per verificare l'esistenza di una Directory:		Mostriamo un esempio pratico per verificare l'esistenza di una Directory:
Riga 96:		Riga 93:
	'''Public''' Sub Main()		'''Public''' Sub Main()

	Dim i As Integer		Dim i As Integer
	Dim st As New stat_		Dim st As New stat_
	Dim percorso, s As String		Dim percorso, s As String

	percorso = "<FONT Color=gray>''/cartella/da/verificare''</font>"		percorso = "<FONT Color=gray>''/cartella/da/verificare''</font>"

Vuott il 10:41, 24 mag 2017

2017-05-24T10:41:22Z

← Versione meno recente		Versione delle 04:41, 24 mag 2017
Riga 15:		Riga 15:

	Print "La Directory "; cartella; ris; " esiste !"		Print "La Directory "; cartella; ris; " esiste !"

			'''End'''


			Si può utilizzare anche la funzione "''IsDir( )''", la quale però ci dice solo se un dato percorso è o non è una cartella, senza specificare se è esistente effettivamente:
			'''Public''' Sub Main()

			Dim ris, cartella As String

			cartella = "/tmp"

			If IsDir(cartella) = False Then ris = " non"

			Print "Il percorso "; cartella; ris; " è una Directory !"

	'''End'''		'''End'''

Vuott il 19:10, 22 mag 2017

2017-05-22T19:10:51Z

← Versione meno recente		Versione delle 13:10, 22 mag 2017
Riga 42:		Riga 42:


	==Uso della funzione esterna ''~~statopendir~~( )''==		==Uso della funzione esterna ''stat( )''==
	Un'altra modalità prevede l'uso della funzione esterna "''stat( )", dichiarata nel file header "''/usr/include/x86_64-linux-gnu/sys/stat.h''".		Un'altra modalità prevede l'uso della funzione esterna "''stat( )", dichiarata nel file header "''/usr/include/x86_64-linux-gnu/sys/stat.h''".

Vuott il 19:09, 22 mag 2017

2017-05-22T19:09:38Z

@@ Riga 38: / Riga 38: @@
     drc = opendir(cartella)
     If drc == 0 Then Error.Raise("Directory inesistente !")
   '''End'''

Vuott il 22:10, 21 mag 2017

2017-05-21T22:10:20Z

@@ Riga 20: / Riga 20: @@
 ==Uso della funzione esterna ''opendir( )''==
-Un'altra modalità prevede l'uso della funzione esterna "''opendir( )''", dichiarata nel file header "''/usr/include/dirent.h''". Tale funzione esterna ....
+Un'altra modalità prevede l'uso della funzione esterna "''[http://man7.org/linux/man-pages/man3/opendir.3.html opendir( )]''", dichiarata nel file header "''/usr/include/dirent.h''". Tale funzione esterna restituisce un ''Puntatore'' valido, se non ha riscontrato errori nel tentativo di accesso alla ''Dyrectory'' impostata, altrimenti ritorna ''NULL'', che in Gambas corrisponde, come valore predefinito di una variabile di tipo ''Puntatore'', allo zero (0).
    Dim drc As Pointer
-    drc = opendir("mydir")
+   cartella = "/abcde"
-    If drc == 0 Then Error.Raise("Directory inesistente !")
+   drc = opendir(cartella)
-End
+   If drc == 0 Then Error.Raise("Directory inesistente !")

Vuott: Creata pagina con "Per verificare se una ''Directory'' esiste, si possono adottare almeno due modalità. ==Uso delle risorse di Gambas== Si può utilizzare la funzione ''Exist( )'', la quale r..."

2017-05-21T19:53:22Z

Creata pagina con "Per verificare se una ''Directory'' esiste, si possono adottare almeno due modalità. ==Uso delle risorse di Gambas== Si può utilizzare la funzione ''Exist( )'', la quale r..."

Nuova pagina

Per verificare se una ''Directory'' esiste, si possono adottare almeno due modalità.

==Uso delle risorse di Gambas==
Si può utilizzare la funzione ''Exist( )'', la quale ritorna ''vero'' se il file o la cartella, indicati nel suo parametro, sono esistenti.

Esempio pratico:
'''Public''' Sub Main()

Dim ris, cartella As String

cartella = "/tmp"

If Exist(cartella) = False Then ris = " non"

Print "La Directory "; cartella; ris; " esiste !"

'''End'''

==Uso della funzione esterna ''opendir( )''==
Un'altra modalità prevede l'uso della funzione esterna "''opendir( )''", dichiarata nel file header "''/usr/include/dirent.h''". Tale funzione esterna ....

Library "libc:6"

' DIR *opendir (const char *__name)
' Open a directory stream on NAME.
Private Extern opendir(name As String) As Pointer

Public Sub Main()

Dim drc As Pointer
Dim ss As String[]
Dim s As String
Dim ris, cartella As String
cartella = "/tmpe"

drc = opendir("mydir")
If drc == 0 Then Error.Raise("Directory inesistente !")

End