@Richardli asked unzip + multi file import
filename = Pick File( "Select zip File", "$DOCUMENTS", {"ZIP Files|zip", "All Files|*"}, 1, 0 );
If( filename != "" & File Exists( filename ),
za = Open( filename, "zip" );
listOfMembers = za << dir;
lb = Lineup Box( N Col( 3 ), spacing( 20 ) );
For( i = 1, i <= N Items( listOfMembers ), i += 1,
lb << append( Check Box( listOfMembers[i] ) )
);
New Window( "select members",
lb,
Button Box( "import selected",
dir = Convert File Path( "$temp/deleteMeCSV/" );
Create Directory( dir );
Show( N Items( lb ) );
names = "";
For( i = 1, i <= N Items( lb ), i += 1,
If( lb[i] << get,
name = (lb[i] << get selected)[1];
names = names || name || ";";
csvdata = za << read( name, Format( "blob" ) );
name = Save Text File( dir || name, csvdata );
)
);
Multiple File Import( <<Set Folder( dir ), <<Set Name Filter( names ), <<Set Name Enable( 1 ), ) << Import Data;
)
);
);
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.