FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
espaco total e livre dos discos com fDriveInfo - WinDev
espaco total e livre dos discos com fDriveInfo - WinDev
Débuté par amarildo, 08 sep. 2021 12:16 - Aucune réponse
Connectez-vous…
amarildo
#1
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 08 septembre 2021 - 12:16
https://windevdesenvolvimento.blogspot.com/2021/09/dicas-3394-windev-webdev-mobile-vamos.html
No Repositorio Fonte do Projeto
https://repository.windev.com/resource.awp…
// Dentro do Looper - initializing loop_discos
s
Lista_Discos
is string
=
""
// vamos criar uma variavel lista discos - sLista_Discos
s
Lista_Discos
=
fListDisk
(
)
// vamos chamar a funcao flistdisk e adicionar na variavel // Vai Retornar "C:" + CR + "D:" + ...
// vamos dar um for each para varrer a string
FOR
EACH STRING
s
Disco_individual
IN
s
Lista_Discos SEPARATED
by
CR
s
Espaco_disco
is string
=
""
// vamos criar uma variavel
s
Espaco_disco
=
"Livre["
+
LengthToString
(
fDriveInfo
(
s
Disco_individual
,
fdFreeSpace
)
,
sizeGB
)
+
"]"
+
CR
// vamos ver o espaco livre no drive //
s
Espaco_disco
+
=
"Espaco["
+
LengthToString
(
fDriveInfo
(
s
Disco_individual
,
fdTotalSpace
)
,
sizeGB
)
+
"]"
+
CR
// vamos ver o total de espaco do drive
// vamos acrescentar o espaco de disco no looper
// LOOP_DISCOS.AddLine(sDisco_individual,sEspaco_disco)
LOOP_discos.AddLine
(
s
Disco_individual
,
s
Espaco_disco
)
END
Procedure
lista_diretorio
(
)
TableDeleteAll
(
TABLE_
diretorio
)
// Limpando a tabela -
s
Lista_diretorio
is string
=
""
s
Lista_diretorio
=
fListDirectory
(
E
DT_Nome_diretorio
,
frNotRecursive
)
// // vamos chamar a funcao lista diretorio
FOR
EACH STRING
s
Nome_diretorio_individual
IN
s
Lista_diretorio SEPARATED
by
CR
// vamos fazer um for each para ler o conteudo do retorno dos diretorios
s
Atributo
is string
=
fAttribute
(
s
Nome_diretorio_individual
)
// vamos pegar o atributo do diretorio
IF
s
Atributo
=
"D"
THEN
// so vamos mostrar no diretorio os que realmente sao diretorios
TableAddLine
(
TABLE_
diretorio
,
s
Nome_diretorio_individual
)
// //vamos adicionar o diretorio na tabela
END
END
TABLE_
ARQUIVOS.DeleteAll
(
)
// vamos limpar tabela arquivos
s
Nome_diretorio
is string
=
ExtractString
(
E
DT_Nome_diretorio
,
1
,
"\"
,
FromEnd
)
// vamos pegar nome diretorio selecionado
IF
s
Nome_diretorio
<
>
""
AND
s
Nome_diretorio
[
3
TO
3
]
<
>
""
THEN
// se nome diretorio for diferente de branco e a 3a posicao tambem for diferente branco
// vamos chamar a rotina mostra_arquivos
mostra_arquivos
(
)
END
Procedure
mostra_arquivos
(
)
TABLE_
ARQUIVOS.DeleteAll
(
)
// TableDeleteAll(TABLE_ARQUIVOS) // vamos apagar os dados da tabela arquivos
s
Arquivos
is string
=
fListFile
(
E
DT_Nome_diretorio
+
"\*.*"
)
// vamos pegar os arquivos do diretorio
FOR
EACH STRING
s
Arquivo_individual
IN
s
Arquivos SEPARATED
by
CR
// vamos varrer o retorno dos arquivos -
TABLE_
ARQUIVOS.AddLine
(
s
Arquivo_individual
)
// Vamos adicionar na tabela o arquivo
//tableaddline(TABLE_ARQUIVOS,sArquivo_individual)
END
Video
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte