マンガでよめる痔のこと・薬のこと

ファイルの整理に悩んでおります。
大量のファイルがありますが、種類別に自動でフォルダを作成してファイルを移動させたいのですが
以下のルールで自動振り分け&フォルダ作成のできるソフトはあるでしょうか。できればフリーソフトを希望します。

ファイル名 [ABCD]あいうえおあいう
        [ABCD]かかきくけこここ
       [EE]みみまままう
       [EE]けけけかくけこ
[QQQQQQQ]あいうえおあいう
[QQQQQQQ]uuuuueeoeoo
[ZZZZZZ]あいうえおあいう
これらのファイルがフォルダにある場合
下層にに  [ABCD]フォルダを作成して[ABCD]あいうえおあいう
                         [ABCD]かかきくけこここ
 を移動する
       [EE]フォルダを作成して [EE]みみまままう
                       [EE]けけけかくけこ
 を移動する
  [ZZZZZZ]は一つなので何もしない
という風に [******]というフラグでまとめたいのですが何かいい方法はないでしょうか?
よろしくお願いします。
      
      

このQ&Aに関連する最新のQ&A

A 回答 (3件)

> [ZZZZZZ]は一つなので何もしない


はめんどくさいので無視して、必ずフォルダを作って入れるのなら、バッチ処理で簡単にできます。
こんな感じでBATファイルを作って実行してみてください。

for %%A in (*) do for /f "delims=[]" %%B in ("%%~A") do (
md %%B 2>NUL
move %%A %%B
)
    • good
    • 0

そこまで自分に都合がいいフリーソフトはないかと思います


自分でスクリプトなどを作って自動実行させるか
   自分で作れなければお願いして誰かに無償・有償で作ってもらう
面倒でも手作業で行う   どちらかでしょうね
    • good
    • 0

そのファイル名の規則であることが稀でしょうし、


その作業をすること自体がさらに稀でしょう。

仮に、汎用性のあるフリーソフトを考えると、利用に正規表現の知識が必要そうなので、
そのフリーソフトを使える人は、今回の機能を持ったスクリプトを自力で簡単に書けると思います。

そしてその人は、
あとからこんな面倒になる手順でファイルを保存しない。

という理由でフリーソフトはないんじゃないかと思います。

そして今、私は暇をもて余していますが、手元にPCがありません。

心優しい方が何か書いてくれるかもしれませんが、
ファイル数によっては手動でやった方が早いと思います。

因みに、希望のものを作成するにあたってあるといい情報は、

整理するファイルはどこにあるのか?
全て同じフォルダと勝手に思っていますが、複数のフォルダに存在する場合など、それによって処理が異なります。


ファイル名の規則に関して

[と]の文字はそれぞれ、絶対に1つのファイル名に対して一度しか出現せず、
必ずファイル名の先頭にあり、
フォルダ名として使えない文字を含まない文字列なのかどうか?

フォルダを作成する場所はどこか?

これだけわかって作成者にとって理想的な希望なら5分以内に作れそう。
テストも入れると15分くらい。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qファイルをフォルダに自動振り分け バッチファイル

Cドライブ直下の"A"フォルダにある1,000件のCSVファイルをCドライブ直下に作成した5つのフォルダ"1~5"に自動振り分けしたいと思っています。
振り分け条件はExcelで管理しており、CSVのファイル名(1,000件分)と振り分け先のフォルダ名(1,000件それぞれ1~5のフォルダ)を入力してあります。

バッチファイルでMOVEを利用して自動振り分けできないか…と考えていますが、上手く行きません。

どなたか教えていただけないでしょうか。宜しくお願いします。

Aベストアンサー

こんにちは。

 私はバッチファイルを作るのによくExcelを使っています。
 例えば、コピーをするのに
  copy file1 folderA
 というコマンドなので、
 A列に「cp 」、B列に「file1」C列に「folderA」を入れ、D列に次の式を入れます。
  =A1 & B1 & " " C1
 すると、D列は「copy file1 folderA」になると思います。
 あとは、D列をコピーし、別シートに「形式を指定して貼り付け」で「値」を選んで貼り付けして、一度、ファイルを保存した後、再度、「名前をつけて保存」でテキスト形式で保存します。
 その後、メモ帳でテキストファイルを開いてコマンドが正しくできていることを確認し、拡張子を「.bat」にして実行します。

 万が一を考えて、moveではなくcopyでやって、結果を確認した後に削除した方が良いでしょう。

では。

Q多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。

多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。

エクセルVBAで、一行の内容を1つのテキストファイルに出力して、
連続処理で複数行を一気に複数ファイルに生成しています。

そのマクロは以前質問して教えて頂いたマクロで、下記のアドレスから
ご覧くださいませ。
http://oshiete.goo.ne.jp/qa/6201310.html
ファイル生成のマクロは、回答No.2の方が教えてくれたマクロを採用し
ています。(ベストアンサー)


生成するファイル名は4桁の数字なんですが、ファイル自動生成時に、
ファイル名が1000番代のファイルは、フォルダ名が1のフォルダに収め、
2000番代は2のフォルダへ・・といった具合に9000番代まで収めたいのです。

ファイルは生成できているので、 あとはフォルダの自動生成と
自動振り分けができるマクロを教えて頂けませんか?

宜しくお願い致します。

Aベストアンサー

内容を換えました。
このマクロの特徴は、2列目を使うファイル名は4桁の数--つまり数字であるということ。
フォルダが見つからないと、マクロはストップしてしまいます。

'//
Sub TestMacro1()
 Dim i As Long, k As Variant, j As Long, m
 Dim fn As String
 Dim mPath As String, nPath As String
 Dim rng As Range, ar As Variant
 Dim buf As String
 Set rng = Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(, 2))
 'パスを決める(CurDir は、カレントディレクトリ)
 mPath = CurDir & "\" '末尾には必ず¥を入れます。
 ar = rng.Value
 For i = 1 To rng.Rows.Count
  fn = Format(ar(i, 2), "0000") & ".txt"
  nPath = mPath & Left$(fn, 1) & "\"
  If Dir(nPath, vbDirectory) = "" Then MsgBox "Folderが見つかりません", 48: Exit Sub
  Do Until Dir(nPath & fn) = ""
   k = Val(k) + 1
   j = InStr(1, fn, "(", 1)
   If j > 0 Then
   '同名ファイルの場合
    fn = Mid(fn, 1, j - 1) & "(" & k & ")" & ".txt"
   Else
    fn = Replace(fn, ".txt", "", , , 1) & "(" & k & ")" & ".txt"
   End If
  Loop
  Open nPath & "\" & fn For Output As #1
  Print #1, ar(i, 1) & ar(i, 2) & ar(i, 3)
  Close #1
  k = ""
  nPath = ""
 Next
 If Len(buf) > 2 Then
  MsgBox Mid(buf, 2) & vbCrLf & "重複のため保存は省かれました。"
 Else
  MsgBox mPath & "に出力されました。"
 End If
End Sub

内容を換えました。
このマクロの特徴は、2列目を使うファイル名は4桁の数--つまり数字であるということ。
フォルダが見つからないと、マクロはストップしてしまいます。

'//
Sub TestMacro1()
 Dim i As Long, k As Variant, j As Long, m
 Dim fn As String
 Dim mPath As String, nPath As String
 Dim rng As Range, ar As Variant
 Dim buf As String
 Set rng = Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(, 2))
 'パスを決める(CurDir は、カレントディレクトリ)
 mPath = CurDir & "\...続きを読む

Qバッチファイルで、ファイル名から自動振分したい

 C:\B\の中に、必ず「半角数字4桁_」から始まるファイル名のデータが毎週入ります。
 「半角数字4桁_」以後のファイル名、拡張子は、その週によって変わります。

 C:\A\の中には、必ず「_半角数字4桁_」で終わるフォルダ名のサブフォルダがあります。
 このフォルダ名は、ずっと変わることがありません。

 C:\B\の中にあるデータを、ファイル名の最初の4桁の数字をもとに、C:\A\にあるサブフォルダに自動で移動したいです。また、移動する際に、既にサブフォルダ内に「半角数字4桁_」から始まるファイル名のデータがある場合は、削除してから移動したいです。


フォルダ構成です。
Cー|
   |-【A】
   |   |-【あいう_1234】
   |  |-【あい_2235】
   |   |-【かきくけ_8990】
   |   |-【アイウエオ_5014】
   |
   |-【B】
   |   |-1234_ABC.txt    ←このファイルは C:\A\【あいう_1234】に。
   |  |-2235_1534.txt   ←このファイルは C:\A\【あい_2235】に。
   |   |-8990_22.doc     ←このファイルは C:\A\【かきくけ_8990】に。
   |   |-5014_わをん.doc   ←このファイルは C:\A\【アイウエオ_5014】に。


 

自分でバッチファイルを記述してみたのですが、ここからどうしていいか分かりません。
 どなたか教えてもらえないでしょうか? よろしくお願いします。
 
 自分で記述してみたバッチファイルです。

cd C:\B

dir /b > C:\C\list.txt

set folder=C:\A
set file=C:\B
set Bat=C:\C

for /f "delims=" %%a in ( %Bat%\list.txt ) do if exist "%file%\%%a" move "%folder%\%%a"

"%to%"


PAUSE > NUL

 C:\B\の中に、必ず「半角数字4桁_」から始まるファイル名のデータが毎週入ります。
 「半角数字4桁_」以後のファイル名、拡張子は、その週によって変わります。

 C:\A\の中には、必ず「_半角数字4桁_」で終わるフォルダ名のサブフォルダがあります。
 このフォルダ名は、ずっと変わることがありません。

 C:\B\の中にあるデータを、ファイル名の最初の4桁の数字をもとに、C:\A\にあるサブフォルダに自動で移動したいです。また、移動する際に、既にサブフォルダ内に「半角数字4桁_」から始まるフ...続きを読む

Aベストアンサー

Bの中にそれ以外のファイルがないとすると、

cd /d C:\B
for %%A in (*) do call :sub "%%~A"
goto :EOF

:sub
set A=%~1
set B=%A:~0,4%
for /d %%D in (C:\A\*_%B%) do (
del /q "%%D"
move %1 "%%D"
)

>また、移動する際に、既にサブフォルダ内に「半角数字4桁_」から始まるファイル名のデータがある場合は、削除してから移動したいです。

の部分がよくわからなかったので、1ファイル移動する毎にフォルダを空にするようにしています。

Qファイル名と同名のフォルダを自動作成して移動させる方法はありますか?

windows XPユーザです。
フォルダ内にある複数のファイル(例えば、word)を1つのファイルごとに分類したいため、そのファイル名と同名のフォルダを元のフォルダ内に新たに作成し、そこに保存したいと思っていますが、ファイルが多数あるため、全てのフォルダについて新規フォルダを自分で作成するのが大変で困っています。何か一括でファイル名と同名のフォルダを作成する方法はないでしょうか?

Aベストアンサー

Excelで代用する方法です。

1.新規でExcelを開き、Wordファイルが保存されているフォルダのパス
 をセルA1に入力します。
  例)C:\MyData\Docs\Word
2.[Alt]+[F11] で VB Editor を開き、標準モジュールに次のとおり
 記述(コピペ)します。
 '
 Sub CrtFileNameDir()
  Dim FPath, TargetFile, DName
  FPath = Range("A1").Value
  If FPath = "" Then Exit Sub
  TargetFile = Dir$(FPath & "\*.doc")
  Do While TargetFile <> ""
   DName = Left(TargetFile, InStrRev(TargetFile, ".") - 1)
   On Error GoTo Er
   MkDir FPath & "\" & DName
   FileCopy FPath & "\" & TargetFile, FPath & "\" & DName _
      & "\" & TargetFile
   Kill FPath & "\" & TargetFile
   TargetFile = Dir$
  Loop
 Er: On Error GoTo 0
 End Sub
 '
3.VB Editor を閉じ、[ツール]-[マクロ]-[マクロ] から、上記マクロを
 実行します。

Excelで代用する方法です。

1.新規でExcelを開き、Wordファイルが保存されているフォルダのパス
 をセルA1に入力します。
  例)C:\MyData\Docs\Word
2.[Alt]+[F11] で VB Editor を開き、標準モジュールに次のとおり
 記述(コピペ)します。
 '
 Sub CrtFileNameDir()
  Dim FPath, TargetFile, DName
  FPath = Range("A1").Value
  If FPath = "" Then Exit Sub
  TargetFile = Dir$(FPath & "\*.doc")
  Do While TargetFile <> ""
   DName = Left(TargetFile, InStrRev(Ta...続きを読む

Q同名フォルダを作成し、そのフォルダに移動するバッチ

自宅で

「Files 2 Folder」
http://www.gigafree.net/utility/move/files2folder.html

というフリーソフトを使って、
作成したファイルと同名のフォルダを作成し、
その作成されたフォルダ内にファイル移動させてファイルの管理をしております。

会社でもこのソフトを使えればいいのですが、
業務に必要不可欠でないフリーソフトをインストールすることを許されていないので、
一つ一つ手作業でフォルダを作成し、そのフォルダにファイルを放り込んでいます。

しかし、
バッチというものを作れば、
windowsの基本機能で、
あるアイコンにファイルをまとめてドラッグアンドドロップしたら、
各ファイルと同名のフォルダをそれぞれ作成し、その作成されたフォルダ内に移動させるようには出来るのでしょうか?

もし可能でしたらやり方を教えてください。

尚、使用しているPCのOSはWindows 7 Professionalです。

Aベストアンサー

No1です。

:LOOP
if "%~1"=="" goto :EOF
md "%~dp1%~n1"
move "%~1" "%~dp1%~n1"
shift
goto :LOOP

Qファイル名を該当フォルダ内から検索して移動

ファイルの振り分けを手動でしているのですが、
手動は大変なのでバッチファイルで自動的に振り分けられるようにしたいです。

C:\振り分け というフォルダがあり、そこにあらかじめ、
【○○】 [△△] □□.txt
といった形式にファイル名をリネームしたファイルを移動しておきます。

過去に整理したファイル達がそれぞれA、B、Cフォルダに入っているとします。
振り分けフォルダのファイル名の先頭から "△△]" の部分まで取得した後、
A、B、Cフォルダの中身をそれぞれ検索して、検索条件に一致したファイルがあったのと
同じフォルダにファイルを自動的に振り分けられるようにしたいです。
また、検索してファイルが見つからなければ振り分けないようにしたいです。
よろしくお願いいたします。

Aベストアンサー

ご指摘の点、対応してみました。お試し下さい。

echo off
set from=C:\振り分け
set to=C:\整理済

for /f "delims=" %%a in ( 'dir /b "%from%\*.txt"' ) do call :sub "%%a"
echo 振り分け終了しました
exit /b

:sub
for /f "tokens=1 delims=]" %%f in ( "%~n1" ) do set findname=%%f]

:FolderA
if exist "%to%\A\%findname%*" move "%from%\%~nx1" "%to%\A\"&&goto :EOF

:FolderB
if exist "%to%\B\%findname%*" move "%from%\%~nx1" "%to%\B\"&&goto :EOF

:FolderC
if exist "%to%\C\%findname%*" move "%from%\%~nx1" "%to%\C\"

goto :EOF

ご指摘の点、対応してみました。お試し下さい。

echo off
set from=C:\振り分け
set to=C:\整理済

for /f "delims=" %%a in ( 'dir /b "%from%\*.txt"' ) do call :sub "%%a"
echo 振り分け終了しました
exit /b

:sub
for /f "tokens=1 delims=]" %%f in ( "%~n1" ) do set findname=%%f]

:FolderA
if exist "%to%\A\%findname%*" move "%from%\%~nx1" "%to%\A\"&&goto :EOF

:FolderB
if exist "%to%\B\%findname%*" move "%from%\%~nx1" "%to%\B\"&&goto :EOF

:FolderC
if exist "%to%...続きを読む

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか?
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします!

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

Qバッチでテキストファイルから任意の行のみ取得したい

batファイルを作成していて、
txtから特定の行のみをとりだし、変数に入れたいです。
どうもよくわからないので質問したいと思います。
まず以下の様なテキストファイルがあります。
-------------------
111
222
333
-------------------
実際の値、行数は違いますが、こんな感じに文字列が複数行並んでいます。

行いたい動作は、
-----------------------------------------
1.テキストファイルの1行目を変数Textに入れる(set Text=111)
2.変数Textを使用し色々処理をする
3.テキストファイルの2行目を変数Textに入れる(set Text=222)
4.変数Textを使用し色々処理をする
-----------------------------------------
コレを繰り返します。
2と4は同じ動作ですので、行数のカウンタを設定しループさせる予定です。
n行目を全て取り出す方法がわかれば行けると思うのですが、
どうも見つかりません。ご存知の方がいればお教え願いたいと思います。

batファイルを作成していて、
txtから特定の行のみをとりだし、変数に入れたいです。
どうもよくわからないので質問したいと思います。
まず以下の様なテキストファイルがあります。
-------------------
111
222
333
-------------------
実際の値、行数は違いますが、こんな感じに文字列が複数行並んでいます。

行いたい動作は、
-----------------------------------------
1.テキストファイルの1行目を変数Textに入れる(set Text=111)
2.変数Textを使用し色々処理をする
3.テキストファイルの2行目を変数T...続きを読む

Aベストアンサー

No3ですが、たぶん提示したスクリプトを見ると、ある事に気がつくはず?

findstr /n /r "." a.txt | findstr /r "^3:"

で3行目を表示してくれます。え!? それだけ。そうなんです

ただ、あと、先頭の”3:” をどうやって切り離すか? と言う問題にぶつかる。さらにファイルに先頭に”3:”があった場合、どうするのか? さらに、findstr の正規表現の動作が??? 表示すれるのはいいが、変数にどうやってセットするのか?

となる。結局 for 文を使いまわす事になります。

まあ、適当に改変して、上記の問題を解決してください。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub


人気Q&Aランキング