Title: Re[2]: [amibroker] How to delete all the files in a directory?
Here is some "old" code I had in my afl DB. I don't know where it came from so please verify before use.
good luck,
herman
EnableScript( "jscript" );
<%
function JSGetCSVInFolder( FilePath )
{
var fso, tf, f, fc, FilePath, SysList, filename;
fso = new ActiveXObject( "Scripting.FileSystemObject" );
f = fso.GetFolder( FilePath );
fc = new Enumerator( f.files );
SysList = "";
for ( ; !fc.atEnd(); fc.moveNext() )
{
filename = "" + fc.item();
if ( filename.substr( filename.length - 4 ).toUpperCase() == ".CSV" )
{
SysList = SysList + filename + ",";
}
}
return SysList;
}
%>
function DeleteCSVinFolder( FolderPath )
{
script = GetScriptObject();
SysFPList = script.JSGetCSVInFolder( FolderPath );
for ( m = 0; ( FilePath = StrExtract( SysFPList, m ) ) != ""; m++ )
{
fdelete( FilePath );
}
return m;
}
Monday, August 17, 2009, 3:24:28 AM, you wrote:
> You can use COM FileSystemObject and enumerate all objects in directory and then delete.
> Google FileSystemObject and you will see all docs.
> Best regards,
> Tomasz Janeczko
> amibroker.com
> ----- Original Message -----
> From: "bistoman73" <bistoman73@xxxxxxxxx>
> To: <amibroker@xxxxxxxxxxxxxxx>
> Sent: Monday, August 17, 2009 12:14 AM
> Subject: [amibroker] How to delete all the files in a directory?
>> or all the files beginning with a string?
>> fdelete doesn't accept the * therefore it is not possible to write
>> fdelete(Name() + "_" + NumToStr( GetChartID(), 0 ) + "*.txt");
>> any help?
>> thank you very much
>> Bisto
>> ------------------------------------
>> **** IMPORTANT PLEASE READ ****
>> This group is for the discussion between users only.
>> This is *NOT* technical support channel.
>> TO GET TECHNICAL SUPPORT send an e-mail directly to
>> SUPPORT {at} amibroker.com
>> TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
>> http://www.amibroker.com/feedback/
>> (submissions sent via other channels won't be considered)
>> For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
>> http://www.amibroker.com/devlog/
>> Yahoo! Groups Links
> ------------------------------------
> **** IMPORTANT PLEASE READ ****
> This group is for the discussion between users only.
> This is *NOT* technical support channel.
> TO GET TECHNICAL SUPPORT send an e-mail directly to
> SUPPORT {at} amibroker.com
> TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
> http://www.amibroker.com/feedback/
> (submissions sent via other channels won't be considered)
> For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
> http://www.amibroker.com/devlog/
> Yahoo! Groups Links
> <*> To visit your group on the web, go to:
> http://groups.yahoo.com/group/amibroker/
> <*> Your email settings:
> Individual Email | Traditional
> <*> To change settings online go to:
> http://groups.yahoo.com/group/amibroker/join
> (Yahoo! ID required)
> <*> To change settings via email:
> mailto:amibroker-digest@xxxxxxxxxxxxxxx
> mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx
> <*> To unsubscribe from this group, send an email to:
> amibroker-unsubscribe@xxxxxxxxxxxxxxx
> <*> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
__._,_.___
**** IMPORTANT PLEASE READ ****
This group is for the discussion between users only.
This is *NOT* technical support channel.
TO GET TECHNICAL SUPPORT send an e-mail directly to
SUPPORT {at} amibroker.com
TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
http://www.amibroker.com/feedback/
(submissions sent via other channels won't be considered)
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
__,_._,___
|