2016-01-22

TF.exeの「ワークスペースを識別できません」エラー

batファイルの中で呼び出したTF.exe（Team Foundation Serverのコマンドラインクライアント）でエラーが発生。

エラーとなったコマンド

call TF.exe get "C:\Users\Hoge\Source\Workspaces\MyCollection\*.txt" /noprompt

エラー内容

ワークスペースを識別できません。'tf workspaces /collection:TeamProjectCollectionUrl' コマンドを実行すると、この問題を修正できる場合があります。

エラーとなったコマンドの前に以下のコマンドを挿入することにより、正常に動作するようになった。

call TF.exe workspaces /s:http://<サーバー名>:8080/tfs

参考にしたページ
http://blogs.msdn.com/b/granth/archive/2008/07/22/tf-exe-unable-to-determine-the-workspace.aspx

2011-09-17

ファイルの更新日付を変更するVBScript

作り方

1.以下のテキストをコピーしてメモ帳に貼り付ける。

If WScript.Arguments.Length = 0 Then
    sMsg = "更新日時を変更したいファイルをドラッグし、このアイコンにドロップしてください"
    MsgBox sMsg, vbOKOnly + vbInformation, "使い方"
Else
    sFile = WScript.Arguments.Item(0)
    Set oFS = CreateObject("Scripting.FileSystemObject")
    If oFS.FileExists(sFile) Then
        Set oFile = oFS.GetFile(sFile)
        sPath = oFile.ParentFolder & "\"
        sFileName = oFile.Name
        sCurrentDateTime = oFile.DateLastModified
        sNewDateTime = InputBox("更新日時をいつに変更しますか？", sFileName, sCurrentDateTime)
        If Len(sNewDateTime) > 0 Then
            If IsDate(sNewDateTime) Then
                sMsg = sFileName & " の更新日時を変更します" & vbCrLf & vbCrLf
                sMsg = sMsg & "  変更前: " & sCurrentDateTime & vbCrLf
                sMsg = sMsg & "  変更後: " & sNewDateTime & vbCrLf & vbCrLf
                sMsg = sMsg & "よろしいですか？"
                If MsgBox(sMsg, vbYesNo + vbQuestion, "確認") = vbYes Then
                    Set oShell = CreateObject("Shell.Application")
                    Set oFolder = oShell.Namespace(sPath)
                    Set oFolderItem = oFolder.ParseName(sFileName)
                    oFolderItem.ModifyDate = sNewDateTime
                End If
            Else
                MsgBox "不正な日付です", vbOKOnly + vbInformation, "エラー"
            End If
        End If
    Else
        MsgBox "これはファイルではありません", vbOKOnly + vbInformation, "エラー"
    End If
End If

2.適当な名前（下記の例では「ファイルの更新日時変更」）に拡張子「.vbs」をつけて保存する。

使い方

1.更新日時を変更したいファイルをドラッグし、vbsファイルのアイコンにドロップする。

2.日時を入力するダイアログが表示されるので、変更後の日時を入力する。

3.確認のダイアログが表示されるので、「はい」を押す。

4.ファイルの更新日時が変更される。

WindowsXP(WSH5.8)で動作を確認しています。

2011-03-08

Outlookのメール受信時に自動で件名のtab文字を除去するマクロ

Outlook2007でメール受信時に自動で起動し、件名（Subject）に含まれるtab文字を除去するVBAマクロのサンプル。

Visual Basic Editorを起動し、プロジェクトエクスプローラにある「ThisOutlookSession」に、以下のコードを貼り付ける。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

    Dim v As Variant
    Dim oMsg As Object
    Dim sSubject As String

    For Each v In Split(EntryIDCollection, ",")
        Set oMsg = Application.Session.GetItemFromID(v)
        sSubject = oMsg.Subject
        If InStr(1, sSubject, vbTab) > 0 Then
            With oMsg
                .Subject = Replace(sSubject, vbTab, "")
                .Close olSave
            End With
        End If
    Next

End Sub

2010-08-12

Outlookのメール件名からtab文字を除去するマクロ

※受信時に自動で動作するバージョンはこちら
deck-no-bow.hatenablog.com

Outlook2007で、メールの件名（Subject）に含まれるtab文字を一括で除去するVBAマクロのサンプル。
選択されているフォルダ内のメール全てを対象に、件名に含まれるtab文字を削除する。

Sub 件名のTAB文字を除去()

    Dim WorkFolder As Outlook.MAPIFolder
    Dim i As Integer
    Dim strSubject As String

    Set WorkFolder = ActiveExplorer().CurrentFolder

    For i = 1 To WorkFolder.Items.Count
        strSubject = WorkFolder.Items(i).Subject
        If InStr(1, strSubject, vbTab) > 0 Then
            With WorkFolder.Items(i)
                .Subject = Replace(strSubject, vbTab, "")
                .Close olSave
            End With
        End If
    Next i

End Sub

選択されているフォルダでなく、受信トレイを対象とする場合は、7行目を以下のように書き換える。

    Set WorkFolder = ActiveExplorer().Session.GetDefaultFolder(olFolderInbox)

特定のフォルダを対象とする場合。以下は「個人用フォルダ」の「work」というフォルダを対象にした例。

    Set WorkFolder = ActiveExplorer().Session.Folders("個人用フォルダ").Folders("work")

2009-12-12

公式なMS Project のビューアについて

マイクロソフトから正式版として提供されている Microsoft Office Project のビューアは存在しない。

但し、試用版についてこのような説明がある。
http://trial.trymicrosoftoffice.com/trialjapan/faq.aspx

機能制限モードでは、ソフトウェアはビューアと同様に動作します。

トライアル期間の終了までフル製品に切り替えなかった場合、製品は機能制限版で実行されます。

つまり試用版をインストールして、試用期間が切れればフリーのビューアになる、ということではないかと思われる。

試用版はここからダウンロード可能。
http://trial.trymicrosoftoffice.com/trialjapan/default.aspx

2009-09-17

Outlook風のBecky!引用テンプレート

Becky!で、返信や転送時のメール引用をOutlookっぽくするテンプレート。
「全般的な設定」の「引用」で設定する。

%0

-----Original Message-----
From: %f
Sent: %D{%A, %B %d, %Y %I:%M %p}
To: %t%h{"
Cc: "Cc}
Subject: %s

%m

2009-06-16

複数のEMF形式ファイルをJPEG、GIFなどの画像形式に一括変換する（Windows）

1. JTrimをインストールする

配布元 http://www.woodybells.com/jtrim.html

2. ifgdip.spiをインストールする

配布元（ページ最下部） http://miyano.s53.xrea.com/index_140.html
解凍してJTrimと同じフォルダに入れる。
なおSusieがインストールされている場合はSusieのフォルダに入れてもよい。その場合は、Susieのプラグイン設定でifgdip.spiを設定できるのでiniファイルの手作りは不要。

3. ifgdip.spiifgdip.iniを作る

以下の内容のテキストファイルを作り、「ifgdip.spiifgdip.ini」というファイル名でifgdip.spiと同じフォルダに保存。

[ifgdip]
dpi=96
bmp=0
png=0
gif=0
tif=0
jpg=0
ico=0
wmf=0
emf=1

ちなみにdpiは解像度。変更可能。

4. JTrimを開き、ファイル⇒一括変換を実行。

入力画像の画像種別は「emf(GDI+) files」を選択。出力画像種別にJPEG、GIFなどを指定する。

2008-12-05

Outlook2007 - URLがハイパーリンクにならない現象について

Outlook2007で、テキスト形式メールの本文にあるURLやメールアドレスがハイパーリンクにならない現象の解消方法。

メニューバーの「ツール」⇒「オプション」を選択。
オプションダイアログが表示されるので「スペルチェック」タブの「スペルチェックとオートコレクト」ボタンを押す。
編集オプションダイアログが表示されるので「文書構成」の「オートコレクトのオプション」ボタンを押す。
オートコレクトダイアログが表示されるので「オートフォーマット」タブの「インターネットとネットワークのアドレスをハイパーリンクに変更する」にチェックを入れる。
全てのダイアログを「OK」を押して閉じる。

2008-12-05

アウトドアブランドの読み方

アウトドア用品関連の会社名・ブランド名の読み方（カタカナ表記）

ARC'TERYX	アークテリクス
ASOLO	アゾロ
BAILESU	バイレス
Berghaus	バーグハウス
Black Diamond	ブラックダイヤモンド
Coleman	コールマン
Columbia	コロンビア
DEUTER	ドイター
Eureka!	ヨーレイカ
EVERNEW	エバニュー
GORE-TEX	ゴアテックス
Gregory	グレゴリー
HAGLOFS	ホグロフス
Heritage	ヘリテイジ
Jack Wolfskin	ジャックウルフスキン
karrimor	カリマー
L.L.Bean	エル・エル・ビーン
LATERRA	ラテラ
Lowealpine	ロウアルパイン
Lowepro	ロウプロ
MAMMUT	マムート
Marmot	マーモット
Millet	ミレー
montbell	モンベル
Mt.Dax	マウンテンダックス
Osprey	オスプレー
Patagonia	パタゴニア
PETZLcharlet	ペツルシャルレ
PRIMUS	プリムス
PUROMONTE	プロモンテ
SIERRA DESIGNS	シェラデザインズ
SIRIO	シリオ
Snow Peak	スノーピーク
TARAS BOULBA	タラスブルバ
THE NORTH FACE	ザ・ノース・フェイス
VICTORINOX	ビクトリノックス
Zamberlan	ザンバラン
ZERO POINT	ゼロポイント