ファイルの情報を右クリックの「送る」でクリップボードにコピーするアプリ WSHプログラム

ShellExt x64 Windows 10、64bit対応、Vista/7対応のエクスプローラ用拡張メニュー

' 本ファイルは SHIFT-JISで保存
' ファイル情報クリップボードコピー.vbs にリネームする
' エクスプローラのアドレス欄に SendToを入力で「送る」設定フォルダに移動して、本 .vbsファイルをコピーする
' SendToフォルダに入れて、ファイルを「右クリック」「送る」での使用を想定
' ファイルの情報を「yyyy-mm-dd_hh-mm-ss 123,456,789」でクリップボードに保存する
' 日本語ファイル名限定 文字コード SHIFT-JIS制限
' Copyright (c)2018 FREE WING, Y.Sakamoto

Set fso = CreateObject("Scripting.FileSystemObject")

str = ""
For I = 0 to Wscript.Arguments.Count-1
  arg = Wscript.Arguments(I)

  ' ファイルかディレクトリかをチェック
  If Not fso.FileExists(arg) Then
    If Not fso.FolderExists(arg) Then
      str = arg & " is Error"
      Exit For
    End If

    Set f = fso.GetFolder(arg)
    pathname = f.Name
    str = pathname & " is Folder"
    Exit For
  End If

  ' ファイル情報を取得
  Set f = fso.GetFile(arg)

  ' ファイルパス
  filepath = f.Path
  ' ファイル名
  filename = f.Name

  ' 作成日付
'  datetime = f.DateCreated
  ' 更新日付
  datetime = f.DateLastModified
  ' ファイルサイズ
  sizeNum = f.Size

  ' 更新日付文字列整形、文字列置換
  datetime = Replace(datetime, "/", "-")
  datetime = Replace(datetime, ":", "-")
  datetime = Replace(datetime, " ", "_")

  ' サイズ数値 3桁区切り文字列変換
  sizeStr = FormatNumber(sizeNum, 0, -1, 0, -1)
  ' サイズ数値 3桁区切り無し文字列変換
'  sizeStr = FormatNumber(sizeNum, 0, -1, 0, 0)

  ' 文字列作成
'  str = str & filepath & "\"
'  str = str & filename & " "
  str = str & datetime & " "
  str = str & sizeStr

  ' 複数処理の場合は改行する
  str = str & vbCrLf

  Set f = Nothing

  ' 複数処理の場合は Exitを削除する
'  Exit For
Next
' Wscript.Echo str

Set fso = Nothing

' clip.exeで改行対応の文字列置換（不要）
' str = Replace(str, vbCrLf, vbNewLine)

' clip.exeでクリップボードに str文字列をコピー
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("clip").StdIn.Write str
Set WshShell = Nothing

> clip.exe /?

CLIP

説明:
    コマンド ライン ツールの出力を Windows クリップボードにリダイレクトします。
    その出力されたテキストをほかのプログラムに貼り付けることができます。

パラメーター一覧:
    /?                  このヘルプを表示します。

例:
    DIR | CLIP          現在のディレクトリ一覧のコピーを Windows クリップボード
                        に貼り付けます。

    CLIP < README.TXT   readme.txt ファイルのテキストのコピーを Windows
                        クリップボードに貼り付けます。

<?xml version="1.0" encoding="utf-8" ?>
<package>
  <job>
    <runtime></runtime>
    <script language="VBScript">
    <![CDATA[

' Copyright (c)2018 FREE WING, Y.Sakamoto

Set fso = CreateObject("Scripting.FileSystemObject")

str = ""
For I = 0 to Wscript.Arguments.Count-1
  arg = Wscript.Arguments(I)

  ' ファイルかディレクトリかチェック
  If Not fso.FileExists(arg) Then
    If Not fso.FolderExists(arg) Then
      str = arg & " is Error"
      Exit For
    End If

    Set f = fso.GetFolder(arg)
    pathname = f.Name
    str = pathname & " is Folder"
    Exit For
  End If

  ' ファイル情報を取得
  Set f = fso.GetFile(arg)

  ' ファイルパス
  filepath = f.Path
  ' ファイル名
  filename = f.Name

  ' 作成日付
'  datetime = f.DateCreated
  ' 更新日付
  datetime = f.DateLastModified
  ' ファイルサイズ
  sizeNum = f.Size

  ' 更新日付文字列整形、文字列置換
  datetime = Replace(datetime, "/", "-")
  datetime = Replace(datetime, ":", "-")
  datetime = Replace(datetime, " ", "_")

  ' サイズ数値 3桁区切り文字列変換
  sizeStr = FormatNumber(sizeNum, 0, -1, 0, -1)
  ' サイズ数値 3桁区切り無し文字列変換
'  sizeStr = FormatNumber(sizeNum, 0, -1, 0, 0)

  ' 文字列作成
'  str = str & filepath & "\"
'  str = str & filename & " "
  str = str & datetime & " "
  str = str & sizeStr

  ' 複数処理の場合は改行する
  str = str & vbCrLf

  Set f = Nothing

  ' 複数処理の場合は Exitを削除する
'  Exit For
Next
' Wscript.Echo str

Set fso = Nothing

' clip.exeで改行対応の文字列置換（不要）
' str = Replace(str, vbCrLf, vbNewLine)

' clip.exeでクリップボードに str文字列をコピー
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("clip").StdIn.Write str
Set WshShell = Nothing

    ]]>
    </script>
  </job>
</package>

<?xml version="1.0" encoding="utf-8" ?>
<package>
  <job>
    <runtime></runtime>
    <script language="VBScript">
    <![CDATA[

Wscript.Echo "あいう你好学习"

    ]]>
    </script>
  </job>
</package>

<?xml version="1.0" encoding="utf-8" ?>
<package>
  <job>
    <runtime></runtime>
    <script language="VBScript">
    <![CDATA[

  Set fso = CreateObject("Scripting.FileSystemObject")
  arg = "C:\hogehoge\あいう你好学习.txt"

  ' ファイル情報を取得
  Set f = fso.GetFile(arg)
  filepath = f.Path
  filename = f.Name
  datetime = f.DateLastModified
  sizeNum = f.Size

  datetime = Replace(datetime, "/", "-")
  datetime = Replace(datetime, ":", "-")
  datetime = Replace(datetime, " ", "_")

  sizeStr = FormatNumber(sizeNum, 0, -1, 0, -1)

  ' 文字列作成
  str = str & filepath & "\"
  str = str & filename & " "
  str = str & datetime & " "
  str = str & sizeStr

  Wscript.Echo str

    ]]>
    </script>
  </job>
</package>

<?xml version="1.0" encoding="utf-8" ?>
<package>
  <job>
    <runtime></runtime>
    <script language="VBScript">
    <![CDATA[

  arg = Wscript.Arguments(0)
  Wscript.Echo arg

    ]]>
    </script>
  </job>
</package>

 // .NET Framework 2.0 C#
 // 引数を URLEncodeして第一引数の Windows Scriptプログラムを実行する
 // Copyright (c)2018 FREE WING, Y.Sakamoto
using System.Web;
using System.Diagnostics;

namespace UrlEncode20Con
{
    class Program
    {
        static void Main(string[] args)
        {
            string str = "";
            bool isFirst = true;
            foreach (string arg in args)
            {
                string argTmp = "";

                // 最初の引数は実行コマンドなので UrlEncodeで変換しない
                if (isFirst)
                {
                    isFirst = false;
                    argTmp = arg;
                }
                else
                {
                    // UrlEncodeで変換する（+文字は %2b、半角空白は +文字）
                    argTmp = HttpUtility.UrlEncode(arg);

                    // EscapeDataStringで変換する（上記文字の扱いが .NET 4.0以前と 4.5以降で異なる）
                    // argTmp = Uri.EscapeDataString(arg);
                }

                // 最初の引数は実行コマンドなので UrlEncodeで変換しない
                if (isFirst)
                {
                    isFirst = false;
                    argTmp = arg;
                }
                else
                {
                    // UrlEncodeで変換する（+文字は %2b、半角空白は +文字）
                    argTmp = HttpUtility.UrlEncode(arg);

                    // EscapeDataStringで変換する（上記文字の扱いが .NET 4.0以前と 4.5以降で異なる）
                    // argTmp = Uri.EscapeDataString(arg);
                }
            // 確認用に表示する
            // Console.WriteLine(str);

            // 確認用に一時停止する
            // using System.Threading;
            // Thread.Sleep(3000);

            // str文字列のコマンドを実行する
            ProcessStartInfo ps = new ProcessStartInfo();
            ps.FileName = "WScript.exe";
            ps.Arguments = str;
            Process.Start(ps);
        }
    }
}

<?xml version="1.0" encoding="utf-8" ?>
<package>
  <job>
    <runtime></runtime>
    <script language="VBScript">
    <![CDATA[

' Copyright (c)2018 FREE WING, Y.Sakamoto

' WScript.Echo URLDecode("Paris%20%E2%86%92%20Z%C3%BCrich")

Set fso = CreateObject("Scripting.FileSystemObject")

str = ""
For I = 0 to Wscript.Arguments.Count-1
  arg = Wscript.Arguments(I)
'  WScript.Echo arg
  ' +文字を半角空白に置換する
  arg = Replace(arg, "+", " ")
  ' 引数の文字列を URLDecodeする
  arg = URLDecode(arg)
'  WScript.Echo arg

  ' ファイルかディレクトリかチェック
  If Not fso.FileExists(arg) Then
    If Not fso.FolderExists(arg) Then
      str = arg & " is Error"
      Exit For
    End If

    Set f = fso.GetFolder(arg)
    pathname = f.Name
    str = pathname & " is Folder"
    Exit For
  End If

  ' ファイル情報を取得
  Set f = fso.GetFile(arg)

  ' ファイルパス
  filepath = f.Path
  ' ファイル名
  filename = f.Name

  ' 作成日付
'  datetime = f.DateCreated
  ' 更新日付
  datetime = f.DateLastModified
  ' ファイルサイズ
  sizeNum = f.Size

  ' 更新日付文字列整形、文字列置換
  datetime = Replace(datetime, "/", "-")
  datetime = Replace(datetime, ":", "-")
  datetime = Replace(datetime, " ", "_")

  ' サイズ数値 3桁区切り文字列変換
  sizeStr = FormatNumber(sizeNum, 0, -1, 0, -1)
  ' サイズ数値 3桁区切り無し文字列変換
'  sizeStr = FormatNumber(sizeNum, 0, -1, 0, 0)

  ' 文字列作成
'  str = str & filepath & "\"
'  str = str & filename & " "
  str = str & datetime & " "
  str = str & sizeStr

  ' 複数処理の場合は改行する
  str = str & vbCrLf

  Set f = Nothing

  ' 複数処理の場合は Exitを削除する
'  Exit For
Next
' Wscript.Echo str

Set fso = Nothing

' clip.exeで改行対応の文字列置換（不要）
' str = Replace(str, vbCrLf, vbNewLine)

' clip.exeでクリップボードに str文字列をコピー
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("clip").StdIn.Write str
Set WshShell = Nothing

' Decoding URL encoded UTF-8 strings in VBScript
' https://stackoverflow.com/questions/17880395/decoding-url-encoded-utf-8-strings-in-vbscript
Function URLDecode(str)
    set list = CreateObject("System.Collections.ArrayList")
    strLen = Len(str)
    for i = 1 to strLen
        sT = mid(str, i, 1)
        if sT = "%" then
            if i + 2 <= strLen then
                list.Add cbyte("&H" & mid(str, i + 1, 2))
                i = i + 2
            end if
        else
            list.Add asc(sT)
        end if
    next
    depth = 0
    for each by in list.ToArray()
        if by and &h80 then
            if (by and &h40) = 0 then
                if depth = 0 then Err.Raise 5
                val = val * 2 ^ 6 + (by and &h3f)
                depth = depth - 1
                if depth = 0 then
                    sR = sR & chrw(val)
                    val = 0
                end if
            elseif (by and &h20) = 0 then
                if depth > 0 then Err.Raise 5
                val = by and &h1f
                depth = 1
            elseif (by and &h10) = 0 then
                if depth > 0 then Err.Raise 5
                val = by and &h0f
                depth = 2
            else
                Err.Raise 5
            end if
        else
            if depth > 0 then Err.Raise 5
            sR = sR & chrw(by)
        end if
    next
    if depth > 0 then Err.Raise 5
    URLDecode = sR
End Function

    ]]>
    </script>
  </job>
</package>

 // .NET Framework 2.0 C#
 // ClipFileInfo.exeを「送る」にコピーする。
 // 使い方は http://www.neko.ne.jp/~freewing/software/sendto_file_info_copy_clipboard_wsh/
 // Copyright (c)2018 FREE WING, Y.Sakamoto
using System;
using System.IO;
using System.Windows.Forms;

namespace ClipFileInfo
{
    class Program
    {
        // Single Thread Apartment (STA) モード
        // STAThreadAttribute
        [STAThread]
        static void Main(string[] args)
        {
            string str = "";
            foreach (string arg in args)
            {
                string path = arg;

                try
                {
                    FileAttributes attributes = File.GetAttributes(path);
                    if ((attributes & FileAttributes.Directory) == FileAttributes.Directory)
                    {
                        continue;
                    }
                }
                catch (Exception)
                {
                    continue;
                }

                string fileName = Path.GetFileName(path);
                string directoryName = Path.GetDirectoryName(path);
                DateTime lastWriteTime = File.GetLastWriteTime(path);

                long fileSize = new FileInfo(path).Length;

                // string dateStr = lastWriteTime.ToString("yyyy/MM/dd HH:mm:ss");
                string lastWriteTimeStr = lastWriteTime.ToString("yyyy-MM-dd_HH-mm-ss");
                string fileSizeStr = string.Format("{0:N0}", fileSize);

                str += directoryName;
                str += " ";
                str += fileName;
                str += " ";
                str += lastWriteTimeStr;
                str += " ";
                str += fileSizeStr;
                str += System.Environment.NewLine;
            }

            // 確認用に表示する
            // Console.WriteLine(str);

            // 確認用に一時停止する
            // using System.Threading;
            // System.Threading.Thread.Sleep(3000);

            if (str.Length > 0)
            {
                Clipboard.Clear();
                Clipboard.SetData(DataFormats.UnicodeText, str);
                // Clipboard.SetDataObject(str, true);
            }
        }
    }
}

[HKEY_CLASSES_ROOT\*\shell\ClipFileInfo]
@="ファイル情報コピー"

[HKEY_CLASSES_ROOT\*\shell\ClipFileInfo\command]
@="C:\\hoge\\ClipFileInfo.exe \"%1\""

; wsfファイルの場合
; @="WScript.exe \"C:\\hoge\\ファイル情報クリップボードコピー.wsf\" \"%1\""