Information générale
Catégorie:
Codage, syntaxe et commandes
I was doing a little coding in VB on the weekend, trying to simulate ADIR and other functions when I came across the File System Object.
This object model of the file system, which also has methods to move and delete and rename files etc. is very elegant and works well in VFP.
Here is a minor sample of what I mean. Change the path in GetFolder to one that exists on your own system.
hide windows all
clear
fso = CreateObject("Scripting.FileSystemObject")
fldr = fso.GetFolder("e:\vfp")
? "path is: " + fldr.path
? "Folder name is: " + fldr.name
for each mfile in fldr.files
? "File name is : " + PADR(mfile.name, 40) + " " + str(mfile.size)
endfor
?
? "Folders found in this directory:"
For Each mfolder in fldr.subfolders
? mfolder.name
endfor
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement