GINPRO / SQLの窓と銀プログラマ

using System;
using Microsoft.VisualBasic.Devices;
using System.Collections.Specialized;

class MyModule {

	[STAThread]
	static void Main() {
		string[] argv;
		argv = System.Environment.GetCommandLineArgs();
		string ActType;
		if ((argv.Length == 1)) {
			ActType = "name";
		}
		else {
			ActType = argv[1];
		}

		// VB.net で言うところの、My.Computer
		// http://msdn.microsoft.com/ja-jp/library/ms173136.aspx
		Computer myComputer = new Computer();

		// SHIFT キーを押しているがどうか
		if (myComputer.Keyboard.ShiftKeyDown) {
			if ((ActType == "name")) {
				// フルパスで表示
				ActType = "path";
			}
			else {
				// ファイル名だけで表示
				ActType = "name";
			}
		}

		StringCollection FileList;
		string delimStr = "\\";
		char[] delimiter = delimStr.ToCharArray();
		string[] aData;

		// エクスプローラから取得したファイル
		// 一覧形式のデータがあった場合
		if (myComputer.Clipboard.ContainsFileDropList()) {
			FileList = myComputer.Clipboard.GetFileDropList();
			foreach (string FilePath in FileList) {
				if ((ActType == "path")) {
					Console.WriteLine(FilePath);
				}
				else {
					aData = FilePath.Split(delimiter);
					Console.WriteLine(aData[(aData.Length - 1)]);
				}
			}
		}

		// 通常のテキストデータがあった場合
		if (myComputer.Clipboard.ContainsText()) {
			Console.WriteLine(myComputer.Clipboard.GetText());
		}


	}
}

Imports System.Collections.Specialized

Module MyModule

' ********************************************
' クリップボードにあるファイル情報を標準出力へ
' ( エクスプローラの「コピー」で取得した内容 )
' 引数による処理タイプの決定
' name : ファイル名のみ
' path : フルパス
' ********************************************
Sub Main()

	' 文字列の配列
	Dim argv As String()

	' コマンドラインの取得
	argv = System.Environment.GetCommandLineArgs()
	Dim ActType As String

	' 引数が無い場合は、名前のみ
	If argv.Length = 1 Then
		ActType = "name"
	Else
		' name または path
		ActType = argv(1)
	End If

	' SHIFT キーを感知できた場合は処理を反転する
	' 要するに引数無しで SHIFT キーを押していたらフルパス
	If My.Computer.Keyboard.ShiftKeyDown Then
		If ActType = "name" Then
			ActType = "path"
		else
			ActType = "name"
		End If
	End If

	Dim FileList As StringCollection
	Dim FilePath As String
	Dim ClipString As String = ""

	' フルパスから名前だけを取り出す為のデリミタ
	Dim delimStr As String = "\"
	Dim delimiter As Char() = delimStr.ToCharArray()

	Dim aData As String()

	' クリップボードにファイルのデータがあった場合
	If My.Computer.Clipboard.ContainsFileDropList() Then
		'データを取得する
		FileList = My.Computer.Clipboard.GetFileDropList()
		'取得したファイル名を列挙する
		For Each FilePath In FileList
			If ActType = "path" Then
				Console.WriteLine( FilePath )
			Else
				aData = FilePath.Split(delimiter)
				Console.WriteLine( aData(aData.Length - 1) )
			End If
		Next
	End If


End Sub

End Module