コマンドプロンプト : クリップボードにあるファイル情報を標準出力へ

バイナリダウンロード ( cf.exe )

ブラウザでダウンロード

エクスプローラでファイルを選択してクリップボードにコピーしても、テキストデータとして取り出す事ができません。このデータを標準出力に出力してコマンドプロンプトで使用できます。

Imports System.Collections.Specialized

Module MyModule

' ***********************************************
' * クリップボードにあるファイル情報を標準出力へ
' ***********************************************
Sub Main()

	' 引数による処理タイプの決定
	' name : ファイル名のみ
	' path : フルパス
	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 キーを感知できた場合は処理を反転する
	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

VB.NET : ベーシック

VB.net : 「ファイルを開くダイアログ」のパラメータを単純なテキストファイルより取得する

VB.net での テキストファイルの読み書きを、出力時のみキャラクタセット毎に条件コンパイル指定する

VB.net での DateDiff メソッドの使用方法

VB.net : 整数 : カンマ編集/前ゼロ/前スペース/１６進数文字列変換

テキストファイルとキャラクタセットの処理

VB.net : String、Char()、Byte() の相互変換

VB.net : 文字単位の ASCII と Unicode

コマンドプロンプト : 入力したキーストロークを表示しない readkey.exe

VB.net/C# : 連続する文字の作成と良く使う文字列フォーマット

VB.net : 各種ディレクトリパスの取得 : テンポラリ/システム/特殊ディレクトリの列挙

VB.net : アプリケーションを開始した実行可能ファイルのパス

VB.net : アプリケーションディレクトリ

VB.NET : バッチファイル用ファイルの参照ダイアログ

VB.NET(コマンドプロンプト) : 指定した文字列だけ色を変えて表示する

VB.NET : SHA256