PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
espaco total e livre dos discos com fDriveInfo - WinDev
espaco total e livre dos discos com fDriveInfo - WinDev
Started by amarildo, Sep., 08 2021 12:16 PM - No answer
Connect yourself…
amarildo
#1
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on September, 08 2021 - 12:16 PM
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
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text