GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
espaco total e livre dos discos com fDriveInfo - WinDev
espaco total e livre dos discos com fDriveInfo - WinDev
Iniciado por amarildo, set., 08 2021 12:16 PM - Sem resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em setembro, 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
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto