カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

メールサーバー【qmail+vpopmail】 open-smtpについて

POP before SMTPを有効にしインストールした場合、
Open Smtpが有効化される

Open Smtp…POP接続時に、IPと時間を記録し、指定した時間以内であればメールリレー(中継)を許可する仕組み
続きを読む…»

4,323 views

VBA ディレクトリ内の全ファイルを読み込む

Visual BasicでFileSystemObjectを使用し、
指定したディレクトリ内の全ファイル(サブディレクトリを含む)を読み込む。
全階層を再帰的に検索することができます。

■コマンドボタンに以下のようにコードを記述

Private Sub ファイル検索_Click()

    Dim strPath As String
    Dim fsObj As Object

    If Not IsNull("検索文字列") Then

        Set fsObj = CreateObject("Scripting.FileSystemObject")

        strPath = "調べたいディレクトリまでのフルパス"
        strKey = "検索文字列"

        'ディレクトリ読み込み関数を呼び出し
        Call SearchSubDirectory(fsObj.GetFolder(strPath), strKey)

        'オブジェクトを破棄
        Set fsObj = Nothing

    End If

End Sub

続きを読む…»

13,418 views

登録されているアプリケーションでファイルを実行する

System.Diagnostics.Process.Start("ファイルパス");

自動的に関連付けされているアプリケーションでファイルが開きます。

例)エクスプローラーでフォルダーを開く

System.Diagnostics.Process.Start(@"C:\My Documents");
1,821 views

ACCESS VBA Excelオートメーションの例

参照設定なしでACCESSからExcelファイルを作成する方法です。
罫線等の定数は使用できないため、実際の数値を与えています。

Dim xlApp    As Object
Dim xlBook   As Object
Dim xlSheet  As Object
Dim FileName As String
FileName = Environ("USERPROFILE") & "\デスクトップ\test.xls"

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
Set xlSheet = xlBook.WorkSheets(1)

続きを読む…»

13,266 views

C#でのEnum(列挙型)

基本となる列挙型

enum Days { Sun, Mon, Tue, Wed, Thu, Fri, Sat };

取り出すときはintegerにキャストする

(int)Days.Sun // 0
(int)Days.Wed // 3

続きを読む…»

2,708 views