指定フォルダ以下のファイルを 年月別のフォルダにコピーする このような画像フォルダがあって... C:\>cscript c:\study\jscript\chapter005\lesson004.js c:\study\picture //nologo 2008/01/01 00:00:00 c:\study\picture\100CDPFP\IMGA0001.JPG 2008/01/0…

指定フォルダ以下のファイルを 年月別のフォルダにコピーする このような画像フォルダがあって... C:\>ruby c:\study\ruby\chapter005\lesson004.rb c:\study\picture 2008/01/01 00:00:00 c:\study\picture\100CDPFP\IMGA0001.JPG 2008/01/02 00:00:00 c:\s…

指定フォルダ以下のファイルを 年月別のフォルダにコピーする このような画像フォルダがあって... C:\>php c:\study\php\chapter005\lesson004.php c:\study\picture 2008/01/01 00:00:00 c:\study\picture\100CDPFP\IMGA0001.JPG 2008/01/02 00:00:00 c:\st…

指定フォルダ以下のファイルを 年月別のフォルダにコピーする このような画像フォルダがあって... C:\>perl c:\study\perl\chapter005\lesson004.pl c:\study\picture 2008/01/01 00:00:00 c:\study\picture\100CDPFP\IMGA0001.JPG 2008/01/02 00:00:00 c:\s…

指定フォルダ以下のファイルを列挙する (更新時刻順にソート) lesson005.js var fs = WScript.CreateObject("Scripting.FileSystemObject"); var hash = new Array(); putsDis(fs, WScript.Arguments(0), hash);var array = new Array(); for (file in hash)…

指定フォルダ以下のファイルを列挙する (更新時刻順にソート) lesson005.rb def putsDir(path, h) if FileTest.directory?(path) Dir.open(path) do |dir| dir.each do |name| next if name == "." # 自分 next if name == ".." # 親 putsDir path + "/" + n…

指定フォルダ以下のファイルを列挙する (更新時刻順にソート) lesson005.php $value) { print $value." ".$key."\n"; } function putsDir($dir, &$h) { if (is_dir($dir)) { $dh = opendir($dir); while ($file = readdir($dh)) { if ($file == ".") continu…

指定フォルダ以下のファイルを列挙する (更新時刻順にソート) lesson005.pl %h; putsDir($ARGV[0]); foreach (sort {$h{$a} cmp $h{$b}} keys(%h)) { print $h{$_}." ".$_."\n"; }sub putsDir { my($path) = @_; if (-d $path) { opendir HANDLE, $path; my …

指定フォルダ以下のファイルを列挙する (更新時刻も表示) lesson004.js var fs = WScript.CreateObject("Scripting.FileSystemObject"); putsDis(fs, WScript.Arguments(0));function putsDis(fs, path) { var folder = fs.GetFolder(path); var files = fol…

指定フォルダ以下のファイルを列挙する (更新時刻も表示) lesson004.rb def putsDir(path) if FileTest.directory?(path) Dir.open(path) do |dir| dir.each do |name| next if name == "." # 自分 next if name == ".." # 親 putsDir path + "/" + name end…

指定フォルダ以下のファイルを列挙する (更新時刻も表示) lesson004.php

指定フォルダ以下のファイルを列挙する (更新時刻も表示) lesson004.pl putsDir($ARGV[0]);sub putsDir { my($path) = @_; if (-d $path) { opendir HANDLE, $path; my @fileList = readdir HANDLE; foreach $file (@fileList) { next if ($file eq "."); # …

指定フォルダ以下のフォルダ/ファイルを列挙する lesson001.js var fs = WScript.CreateObject("Scripting.FileSystemObject"); var folder = fs.GetFolder(WScript.Arguments(0));var files = folder.Files; var enmFile = new Enumerator(files) for (; !e…

指定フォルダ以下のフォルダ/ファイルを列挙する lesson001.rb Dir.open(ARGV[0]) do |dir| dir.each do |name| puts name end end実行結果 C:\>ruby c:\study\ruby\chapter005\lesson001.rb c:\study\ruby . .. chapter001 chapter002 chapter003 chapter00…

指定フォルダ以下のフォルダ/ファイルを列挙する lesson001.php 実行結果 C:\>php c:\study\php\chapter005\lesson001.php c:\study\php . .. chapter001 chapter002 chapter003 chapter004 chapter005 ちょいと変更 lesson002.php

指定フォルダ以下のフォルダ/ファイルを列挙する lesson001.pl $dir = $ARGV[0]; opendir HANDLE, $dir; @fileList = readdir HANDLE;foreach $file (@fileList) { print "$file\n"; }closedir HANDLE, $dir;実行結果 C:\>perl c:\study\perl\chapter005\les…

文字数 と バイト数 lesson011.vbs WScript.Echo "文字数" For Each arg In WScript.Arguments WScript.Echo arg & " => " & Len(arg) NextWScript.Echo "バイト数" For Each arg In WScript.Arguments WScript.Echo arg & " => " & LenA(arg) NextFunction …

文字数 と バイト数 lesson011.js WScript.Echo("文字数"); var arg = new Enumerator(WScript.Arguments); for (; !arg.atEnd(); arg.moveNext()) { WScript.Echo(arg.item() + " => " + arg.item().length); }WScript.Echo("バイト数"); arg = new Enumera…