Subfolders Connection

[pgalvezt]

Hello! I'm Trying to extract all files in folders and Subfolders. But Im just reaching the connection: This is my script:

OLEDB CONNECT TO [Provider=VFPOLEDB.1;Data Source=e:\modelos\nueva carpeta;Mode=Share Deny None;Extended Properties="";User ID="";Password="";Mask Password=False;Cache Authentication=False;Encrypt Password=False;Collating Sequence=MACHINE;DSN="";DELETED=True;CODEPAGE=1252;MVCOUNT=16384;ENGINEBEHAVIOR=90;TABLEVALIDATE=3;REFRESH=5;VARCHARMAPPING=False;ANSI=True;REPROCESS=5];

sub DoDir (Root)

                    for each Ext in 'qvw', 'qva', 'qvo', 'qvs','dbf'

                              for each Dir in dirlist ('E:\Modelos\Nueva carpeta' )

                                        for each File in filelist ('E:\Modelos\Nueva carpeta\*.dbf')

Let vTableName = subfield(mid('$(File)', index('$(File)', '\',-1) +1), '.dbf', 1);

/*Load '$(File)' as Name, FileSize( '$(File)' ) as Size, FileTime( '$(File)' ) as FileTime

autogenerate 1;*/

                                                  Qualify *;

                                                  $(vTableName):

                                                  SQL SELECT * FROM $(vTableName);

                                                  Unqualify *;

                                        Next File

                              next Dir

                    next Ext

call DoDir ('E:')

end sub

Thanks!

[pgalvezt]

Any Help?

Thanks!

[pgalvezt]

Hi,

I have tried moving thescript Reading, but for some reason it is not moving on to the next sub directory, any ideas why?

Thanks!

[pgalvezt]

Any Help?

Thanks!

[pgalvezt]

Anyone can help me with this please?

Thanks!

[pgalvezt]

Anyone can help me with this please?

Thanks!