Run for your life

Do CreateINI

Local cFile
cFile = “c:\sampleini.ini”
=MakeFile(cFile)

= WritePrivateProfileSection (”One”,;
“ID=001″ + Chr(0) +”Path = c:”+CHR(0) ,;
cFile)
= WritePrivateProfileSection (”Two”,;
“ID=002″ + Chr(0) +”Path = d:”+CHR(0) ,;
cFile)
= WritePrivateProfileSection (”Three”,;
“ID=003″ + Chr(0) +”Path = e:”+CHR(0) ,;
cFile)

PROCEDURE  MakeFile (cFile)
IF FILE (cFile)
DELETE FILE (cFile)
ENDIF

hFile = FCREATE (cFile)
= FCLOSE (hFile)

PROCEDURE  CreateINI
DECLARE WritePrivateProfileSection IN kernel32;
STRING lpAppName,;
STRING lpString,;
STRING lpFileName

DECLARE WritePrivateProfileString IN kernel32;
STRING lpAppName,;
STRING lpKeyName,;
STRING lpString,;
STRING lpFileName

enjoy it…!
source

Related posts:

1. Reduce Memory Usage in VFP
2. How to : Visual Foxpro | OO Calc
3. How to: Get current user (WinNT/XP/Y2K) in VFP

This entry was posted on Tuesday, June 1st, 2010 at 10:10 am and is filed under Programming, Tips & Trick.You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.