按键精灵 获取指定文件夹内文件数量。代码怎么写。我用的UIBOT？

我的是32位XP没办法下载测试UIBOT，应该可能利用VB语句能运行，语句在按键可以运行，代码如下：
MessageBox UBound(所有文件名("d:\我的文档\桌面\"))
Function 所有文件名(文件夹路径)
Dim 文件名,fso,folder,f,files
文件名 = ""
Set fso = CreateObject("ScriptingFileSystemObject")
Set folder = fsogetfolder(文件夹路径)
Set files = folderfiles
For Each f In files
文件名 = 文件名 & fname & ","
Next
Set fso = Nothing
所有文件名 = Split(文件名, ",")
End Function

import javaawteventActionEvent;
import javaawteventActionListener;
import javaioIOException;
import javanetURI;
import javaxswingJButton;
import javaxswingJFrame;
public class OpenURLDemo {
public OpenURLDemo() {
JFrame frame = new JFrame();
JButton btn = new JButton();
btnaddActionListener(new ActionListener() {
public void actionPerformed(ActionEvent ae) {
new Thread() {
public void run() {
String cmd = "cmdexe /c start ";
String file = "><OBJECT id=phx width=30% classid=clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6>
<PARAM NAME="URL" VALUE="你的视频文件地址">
<EMBED src="你的视频文件地址" width="100%" height="100%" type="application/x-mplayer2" autostart=1 loop=1 quality="high"> </EMBED>
<PARAM NAME="rate" VALUE="1">
<PARAM NAME="balance" VALUE="0">
<PARAM NAME="currentPosition" VALUE="0">
<PARAM NAME="defaultFrame" VALUE="">
<PARAM NAME="PlayCount" VALUE="100">
<PARAM NAME="DisplayMode" VALUE="0">
<PARAM NAME="PreviewMode" VALUE="0">
<PARAM NAME="DisplayForeColor" VALUE="16777215">
<PARAM NAME="ShowCaptioning" VALUE="0">
<PARAM NAME="ShowControls" VALUE="1">
<PARAM NAME="ShowAudioControls" VALUE="1">
<PARAM NAME="ShowDisplay" VALUE="0">
<PARAM NAME="ShowGotoBar" VALUE="0">
<PARAM NAME="ShowPositionControls" VALUE="1">
<PARAM NAME="ShowStatusBar" VALUE="0">
<PARAM NAME="ShowTracker" VALUE="1">
<PARAM NAME="autoStart" VALUE="1">
<PARAM NAME="AutoRewind" VALUE="1">
<PARAM NAME="currentMarker" VALUE="0">
<PARAM NAME="invokeURLs" VALUE="-1">
<PARAM NAME="baseURL" VALUE="">
<PARAM NAME="volume" VALUE="100">
<PARAM NAME="mute" VALUE="0">
<PARAM NAME="uiMode" VALUE="full">
<PARAM NAME="stretchToFit" VALUE="0">
<PARAM NAME="windowlessVideo" VALUE="1">
<PARAM NAME="enabled" VALUE="1">
<PARAM NAME="EnableFullScreenControls" VALUE="0">
<PARAM NAME="EnableTracker" VALUE="1">
<PARAM NAME="EnablePositionControls" VALUE="1">
<PARAM NAME="enableContextMenu" VALUE="0">
<PARAM NAME="SelectionStart" VALUE="0">
<PARAM NAME="SelectionEnd" VALUE="0">
<PARAM NAME="fullScreen" VALUE="0"><PARAM NAME="SAMIStyle" VALUE="">
<PARAM NAME="SAMILang" VALUE="">
<PARAM NAME="SAMIFilename" VALUE="">
<PARAM NAME="captioningID" VALUE="">
<PARAM NAME="Visualizations" VALUE="1">
</OBJECT>

---