Windev21 Aulas,Estudos e Desenvolvimento: 07/03/15

VIDEO - WINDEV FUNÇÕES LIXEIRA

Functions for managing the recycle bin - http://doc.windev.com
RecycleBinDelete - http://doc.windev.com
RecycleBinRestore - http://doc.windev.com
RecycleBinClear - http://doc.windev.com
RecycleBinListFile - http://doc.windev.com
fDelete - http://doc.windev.com

--------------------------------------------------------------------------------------------------------------
//Lixeira - Ver Dados

//Functions for managing the recycle bin - http://doc.windev.com/en-US/?1000017165&name=Bin_functions
//RecycleBinListFile (Function) - http://doc.windev.com/en-US/?1000017162&name=recyclebinlistfile_function

// Mostra Dados da Lixeira
_Lista_Lixeira is string
ListDeleteAll(TABLE_lixeira)
_Lista_Lixeira = RecycleBinListFile()
ListAdd(TABLE_lixeira, _Lista_Lixeira)
// Mostra Dados da Lixeira
--------------------------------------------------------------------------------------------------------------
//Lixeira - Exibe uma Mensagem de Confirmação Antes de Limpar Lixeira

RecycleBinDelete(TABLE_lixeira[TABLE_lixeira])
--------------------------------------------------------------------------------------------------------------
//Restaura um arquivo encontrado na Lixeira
_restaurar_arquivo is boolean = False
_arquivo_restaurar is string = TABLE_lixeira[TABLE_lixeira]
Input.OptionalCaption = "Restaurar Arquivo"
Input("Voce quer Restaurar Arquivo?" + _arquivo_restaurar , _restaurar_arquivo)
IF _restaurar_arquivo=True THEN
   RecycleBinRestore(_arquivo_restaurar )
   // Restaura Arquivo da Lixeira
   Info("Restaurado Arquivo Selecionado")
ELSE
   Info("nao foi Restaurado")
END
//Restaura um arquivo encontrado na Lixeira
--------------------------------------------------------------------------------------------------------------
//Limpar Lixeira
_limpar_lixeira is boolean = False
Input.OptionalCaption = "Limpar Lixeira"
Input("Voce quer Limpar Lixeira?", _limpar_lixeira)
IF _limpar_lixeira=True THEN
    RecycleBinClear()
    Info("Foi Limpado Lixeira")
ELSE
    Info("nao foi limpado lixeira")
END
//Limpar Lixeira
--------------------------------------------------------------------------------------------------------------
// Mostra Diretorio
TableDeleteAll(TABLE_diretorio)
_arquivo is string
_lista_arquivos_diretorio is string
_lista_arquivos_diretorio = fListFile("e:\aleva\txt\*.*", frRecursive + frInterruptible)
        // Lista os arquivos encontrados em um diretório e retorna a lista de arquivos.
        // Os arquivos listados são procurados do diretório dado. Os arquivos são retornados
        // em ordem alfabética
        //
FOR EACH STRING _arquivo OF _lista_arquivos_diretorio SEPARATED BY CR
    TableAdd(TABLE_diretorio, _arquivo)
END
TableDisplay(TABLE_diretorio)
// For each - http://doc.windev.com/en-US/?1510018&name=FOR_EACH_Strings
// FlistFile - http://doc.windev.com/?3036058&lang=en-US&productversion=xxA190056s
// TableAdd - http://doc.windev.com/?3074017&lang=en-US&productversion=xxA190056s
// Mostra Diretorio
--------------------------------------------------------------------------------------------------------------
// Elimina Arquivo Selecionado
// FDelete - http://doc.windev.com/en-US/?3036029&name=fdelete_function
_eliminar is boolean = False
_nome_arquivo is string = (TABLE_diretorio[TABLE_diretorio])
Input.OptionalCaption = "Eliminar Arquivo e Levar Lixeira [ " + _nome_arquivo + "]"
Input("Voce quer Eliminar Arquivo [ " + _nome_arquivo + " ] ? ", _eliminar)
IF _eliminar=True THEN
   // Elimina Arquivo do Diretorio
   resdelete is int
   resdelete = fDelete(_nome_arquivo,frToRecycleBin)
   // frtorecyclebin - Manda arquivo para lixeira
ELSE
   Info("Falso")
END
// Elimina Arquivo Selecionado

--------------------------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------------------------

Páginas

sexta-feira, 3 de julho de 2015