Clipper On Line • Ver Tópico - Objeto FileSystemObject, método GetSpecialFolder

Objeto FileSystemObject, método GetSpecialFolder

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Objeto FileSystemObject, método GetSpecialFolder

Mensagempor asimoes » 18 Jul 2019 13:53

Objeto FileSystemObject
#define SystemFolder    1   //The Windows system folder (/windows/system or /windows/system32)
#define TemporaryFolder 2   //The folder that stores temporary files (../windows/temp)
#define WindowsFolder   0   //The root folder of the Windows system folder tree (/windows or /winnt)

cPathName := GetSpecialFolder( TemporaryFolder ) // Retorna o path da pasta temp do usuário

FUNCTION GetSpecialFolder( nFolderSpec )
LOCAL oFile, lOk := .T., cPathName := ""

   Hb_Default(@nFolderSpec , 0)

   BEGIN SEQUENCE WITH __BreakBlock()
      oFile := Win_OlecreateObject("Scripting.FileSystemObject")
   RECOVER
      lOk := .F.
   END

   IF lOk
      BEGIN SEQUENCE WITH __BreakBlock()
         WITH OBJECT oFile
            cPathName := :GetSpecialFolder( nFolderSpec ):Path
         END             
      RECOVER
         cPathName := ""
      END
   ENDIF
   
RETURN cPathName
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4208
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 294 vezes
Mens.Curtidas: 210 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro