Re: Alternative to ADIR() functions
- From: "Sujata Kekare" <sujataknospam@xxxxxxxxxxx>
- Date: Thu, 8 Dec 2005 11:09:09 +1030
The sys(2000) function helped. Thank you for your help. I shall add this
to my bag of tricks. Would you be able to tell me where I can find a list
of all the methods in the shell object ?
Many thanks.
Sujata
"Michel Roy" <MichelRoy@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:1EF4DCE1-E30C-48AA-9E52-260E46B62FD7@xxxxxxxxxxxxxxxx
> you could use the sys(2000) function or you can use the shell object
>
> Create Cursor myTable (filepath M)
> loShell = CREATEOBJECT("Shell.Application")
> loDir = loShell.NameSpace("C:\Documents and Settings\All Users\Documents")
> FOR Each loFile IN loDir.Items
> IF NOT loFile.IsFolder
> INSERT INTO mytable (filePath) VALUES (loFile.Path)
> ENDIF
> NEXT
>
> "Sujata Kekare" wrote:
>
> > I am using the ADIR function to read the names of all picture files in a
> > particular folder into an array. I then append the names in the array
into
> > a table. One of the users has more than 15000 files in their folder and
get
> > an error message when the program reaches the line of code containing
the
> > ADIR function. Does any one know an alternative way of getting file
names
> > into a table ?
> >
> > I have tried using RUN DIR >> X.TXT, but any file names greater than 8
> > characters are truncated. This doesn't happen when I actually use the
DIR
> > command in a DOS window.
> >
> > Commands like DIRECTORY and DISPLAY FILES, don't seem to create a file
in a
> > format that can be imported into a dbf. Although I might have to work
with
> > those if there is no other go.
> >
> > Any ideas ?
> >
> > TIA
> > Sujata
> >
> >
> >
.
- References:
- Alternative to ADIR() functions
- From: Sujata Kekare
- Alternative to ADIR() functions
- Prev by Date: Re: Alternative to ADIR() functions
- Next by Date: dbf problem
- Previous by thread: Re: Alternative to ADIR() functions
- Next by thread: Medai Player 10 Mute?
- Index(es):
Relevant Pages
|
