コントロール配列かどうかを判別

Private Sub Form_Load() Dim ctl As Contr...

» Continue reading

| | Comments (0) | TrackBack (0)

FileSystemObjectフォルダ再帰検索

Option Explicit Private Sub Command1_Click() Dim fs As Object, fld As Object Set fs = CreateObject("Scripting.FileSystemObject") Set fld = fs.GetFolder("C:\TEMP") DispFolders fld Set fld = Nothing Set fs = Nothing End Sub Private Sub DispFolders(oFolder As Object) Dim oSubFolder As...

» Continue reading

| | Comments (0) | TrackBack (0)

ファイルのバージョン情報を取得

' ファイルのバージョン情報を取得 Option Explicit Ty...

» Continue reading

| | Comments (0) | TrackBack (0)

レジストリの書き込み(WSH)

'レジストリの書き込み(WSH) Set WSHShell = Crea...

» Continue reading

| | Comments (0) | TrackBack (0)

レジストリの読み込み(WSH)

'レジストリの読み込み(WSH) Function WSHRegRead...

» Continue reading

| | Comments (0) | TrackBack (0)

デスクトップへショートカットを作成する。

'デスクトップへショートカットを作成する。 WSH。 http://ww...

» Continue reading

| | Comments (0) | TrackBack (0)

ドライヴ容量取得

'ドライヴ容量取得 Sub ShowDriveLetter(drvPat...

» Continue reading

| | Comments (0) | TrackBack (0)

Line Input と TextStreamではどっちが速い?

'Line Input と TextStreamではどっちが速い? Fu...

» Continue reading

| | Comments (0) | TrackBack (0)

What's WebLOG

実は、自宅サーバ(Linux)でMovable Typeなぞいじってみていて、 ...

» Continue reading

| | Comments (0) | TrackBack (0)