This is amazing....there is no company in the world that has tech support like Rbase!
Thanks...I will study this....
Mike
-------------- Original message from "A. Razzak Memon" <[email protected]>: --------------
> At 07:57 PM 1/4/2009, Michael J. Sinclair, MD wrote:
>
> >I want to be able to import all the filenames in a folder into
> >a column in a table. I also want to be able to import the entire
> >pathname\filename.ext into a different column.
> >Is there an easy way to do that or do I need do things like....
> >
> >output temp.txt
> >dir
> >output screen
> >load tablename from temp.txt
> >etc....
>
>
> Mike,
>
> Here's how:
>
> Follow these steps ...
>
> 01. Define a table to store file name and full path.
>
> Example:
>
> -- Start here ...
> -- Define table
> SET ERROR MESSAGE 2038 OFF
> DROP TABLE `ImportedFiles`
> SET ERROR MESSAGE 2038 ON
> CREATE TABLE `ImportedFiles` +
> (`ImportedFileID` INTEGER, +
> `ImportedFileName` TEXT (64), +
> `ImportedFilePath` TEXT (100), +
> `UserName` TEXT (16), +
> `FileDateAndTime` DATETIME)
> AUTONUM `ImportedFileID` IN `ImportedFiles` +
> USING 100001 1 NONUM
> COMMENT ON `ImportedFileID` IN `ImportedFiles` +
> IS 'Imported File ID'
> COMMENT ON `ImportedFileName` IN `ImportedFiles` +
> IS 'Imported File Name'
> COMMENT ON `ImportedFilePath` IN `ImportedFiles` +
> IS 'Imported File Path'
> COMMENT ON `UserName` IN `ImportedFiles` +
> IS 'User Name'
> COMMENT ON `FileDateAndTime` IN `ImportedFiles` +
> IS 'Date and Time'
> COMMENT ON TABLE `ImportedFiles` IS +
> 'List of Imported Files'
> RETURN
> -- End here ...
>
> 02. Use the following code to Load the Text File(s) with all
> details (for R:BASE 7.6 for Windows).
>
> -- LoadFileNamesAndPath76.RMD
> -- January 4, 2009
> -- Required Plugins:
> -- LoadFileNamePlusPlus76.RBL (for 7.6 for Windows)
> CLS
> CLEAR VARIABLES vDefaultFolder,vQuotes,vFileName,vFilePath
> SET VAR vDefaultFolder TEXT = (CVAL('CURRDIR'))
> SET VAR vQuotes TEXT = (CVAL('QUOTES'))
> SET VAR vFileName TEXT = NULL
> SET VAR vFilePath TEXT = NULL
> LABEL LoadFileName
> SET VAR vString = +
> ('PLUGIN LoadFileNamePlusPlus76.RBL'&.vQuotes + +
> 'vResult' + +
> '|INITIAL_DIR'&.vDefaultFolder + +
> '|MULTISELECT OFF' + +
> '|TITLE Select Text File' + +
> '|VIEW_MODE LIST' + +
> '|OK_BUTTON_CAPTION Load File' + +
> '|FILTER Text Files (*.txt)#*.txt'+.vQuotes)
> &vString
> IF vResult <> 'OK' THEN
> GOTO Done
> ELSE
> SET VAR vFileName = .vLFNFileNameS1
> SET VAR vFilePath = .vLFNFileName1
> INSERT INTO ImportedFiles +
> (ImportedFileName,ImportedFilePath,UserName,FileDateAndTime) +
> VALUES +
> (.vFileName,.vFilePath,(CVAL('NetUser')),.#NOW)
> ENDIF
> LABEL Done
> CLS
> CLEAR VARIABLES vQuotes,vResult,vLFNFileCount,vLFNFileName1, +
> vLFNFilePath1,vLFNFileNameS1,vLFNFileExt1,vLFNFileDT1,vLFNFileSize1, +
> vString,vFileName,vFilePath,vQuotes,vDefaultFolder
> RETURN
>
> 03. Use the following code to Load the Text File(s) with all
> details (for R:BASE Turbo V-8 for Windows).
>
> -- LoadFileNamesAndPath80.RMD
> -- January 4, 2009
> -- Required Plugins:
> -- LoadFileNamePlusPlus80.RBL (for Turbo V-8 for Windows)
> CLS
> CLEAR VARIABLES vDefaultFolder,vQuotes,vFileName,vFilePath
> SET VAR vDefaultFolder TEXT = (CVAL('CURRDIR'))
> SET VAR vQuotes TEXT = (CVAL('QUOTES'))
> SET VAR vFileName TEXT = NULL
> SET VAR vFilePath TEXT = NULL
> LABEL LoadFileName
> SET VAR vString = +
> ('PLUGIN LoadFileNamePlusPlus80.RBL'&.vQuotes + +
> 'vResult' + +
> '|INITIAL_DIR'&.vDefaultFolder + +
> '|MULTISELECT OFF' + +
> '|TITLE Select Text File' + +
> '|VIEW_MODE LIST' + +
> '|OK_BUTTON_CAPTION Load File' + +
> '|FILTER Text Files (*.txt)#*.txt'+.vQuotes)
> &vString
> IF vResult <> 'OK' THEN
> GOTO Done
> ELSE
> SET VAR vFileName = .vLFNFileNameS1
> SET VAR vFilePath = .vLFNFileName1
> INSERT INTO ImportedFiles +
> (ImportedFileName,ImportedFilePath,UserName,FileDateAndTime) +
> VALUES +
> (.vFileName,.vFilePath,(CVAL('NetUser')),.#NOW)
> ENDIF
> LABEL Done
> CLS
> CLEAR VARIABLES vQuotes,vResult,vLFNFileCount,vLFNFileName1, +
> vLFNFilePath1,vLFNFileNameS1,vLFNFileExt1,vLFNFileDT1,vLFNFileSize1, +
> vString,vFileName,vFilePath,vQuotes,vDefaultFolder
> RETURN
>
> That's all there is to it!
>
> Very Best R:egards,
>
> Razzak.
>
>
