動画の長さごとに、動画を分けようとしてて、動画の再生時間を出力する方法を探してるのですが、
ネットで以下の文を拾いました
これは、選択したファイルの動画情報含めてプロパティで表示される情報を見れる文でしたが、実際に使ってみると
動画の長さ=動画の長さ
みたいな感じで表示されて惜しい感じになってます、多分当時はできてたんだと思いますが、どこ直せばいいか分かりますか？もし分かる方いたらご教授お願いします。
別にこれ使わなくても動画の長さを出力できさえすればなんでもいいです。

//エクスプローラの詳細情報を得る
dim o_Shell = CreateOleObj("Shell.Application")
dim s_dir　　　= get_cur_dir

//このファイルと同じフォルダにあるものとする
dim s_fileName = "目的のファイル.wmv"

//NameSpace（名前空間）でフォルダオブジェクトを作る
dim o_folder = o_Shell.NameSpace(s_dir)

//ParseNameで指定されたアイテムの FolderItem オブジェクトを作成し返す。
//FolderItem とは、フォルダに含まれる個々のファイルやフォルダのこと。
dim o_item　 = o_folder.ParseName(s_fileName)

dim i
for i=-1 to 50
　　//GetDetailsOfメソッドでフォルダ内のアイテムについて詳細を取得。
　　dim s_columName = o_folder.GetDetailsOf(emptyparam, i)
　　dim s_value　　 = o_folder.GetDetailsOf(o_item, i)
　　s = i +" : "+ s_columName +" = "+ s_value
　　print s
next