Concorra a três cursos on-line totalmente grátis:
1. Web Marketing
2. Técnicas de Vendas
3. Marketing Pessoal
Veja este pequeno programa que permite listar arquivos de determinada extensão (no exemplo: MP3) utilizando o VFP.
LOCAL lcComputer as Character, loWMIService as Object, lcolFiles as Collection, lclista as Character
lcComputer = "."
loWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
lcolFiles = loWMIService.ExecQuery("Select * from CIM_DataFile where Extension = 'MP3'")
lclista = ""
For Each objFile in lcolFiles
lclista = lclista + objFile.Name + CHR(10)
Next
MESSAGEBOX(lclista)
Autor: Cleber Ferrari
Compartilhe:
2004-2008 Weblivre.net Todos os direitos reservados.
Quem somos | Política de Acesso | Anuncie | Na Mídia | Seja um Colunista | Sugestão de Pauta | Fale Conosco
Idealização: Webla - Comunicação Digital