Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Navigate on UNICODE folder
Message
De
03/06/2016 17:21:31
 
 
À
03/06/2016 04:15:51
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01636958
Message ID:
01636984
Vues:
63
*This is another solution using batch file and turning the code page to UTF-8
*List all files recursively (even in subfolders) from a source folder
*the result is shown on notepad (supports UTF-8) .can recurse all subfolders with /s
*Note:the first try fails always to create a list in UTF-8 txt file....?
Set Safe Off
Local m.yrep
m.yrep=Addbs(Getdir())
Set Defa To (m.yrep)

Local m.myvar
TEXT to m.myvar textmerge noshow
rem change the code page to UTF-8.
chcp 65001
dir  "<<m.yrep>>" /b /s > <<m.yrep>>fileslist.txt
ENDTEXT
Strtofile(m.myvar,m.yrep+"ybat.bat")

Local oshell
oshell=Newobject("wscript.shell")
oshell.Run(m.yrep+"ybat.bat",.F.,0)     &&/s recursive all subfolders from souce m.yrep
oshell=Null

Local m.oo
m.oo=m.yrep+"fileslist.txt"
If File (m.oo)
  Run/N notepad &oo
Else
  Messagebox(m.oo +" not created! re try once.")
Endi
Retu
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform