id:gocnia3
ポイントあり1000pt質問をキャンセル
コンピュータインターネット

WindowsXPでファイルパス長が256文字を超えるファイルの一覧を取得したいです。


WindowsXPで扱えるファイルパス長は256文字までの認識です。
256文字を超えたファイルがある場合、削除やコピーなどができないようになってしまいます。

上記のようなファイルを探すためにVBScriptにて256文字を超えたファイルが存在する
対象フォルダを再回帰的に検索し、ファイル一覧を出したのですが、256文字を超えている
ファイルは検索できず、一覧に表示されない状態です。

256文字を超えたファイルを検索し、パスとファイル名を検索できる方法はありますでしょうか
出来ましたらVBScriptのサンプルを作っていただけると幸いです。

また、ポイントにつきましては基本的には１番回答に近いものにあてさせていただきます。

回答の条件
  • 1人5回まで
  • 登録：
  • 終了：2012/04/14 10:23:32
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答（4件）

id:taknt No.1

回答回数13539ベストアンサー獲得回数1198 


const ForReading = 1
' --------------------------------------------------------------------
' フォルダ内のファイル一覧の取得
Redim path_list(0)
GetFDate "c:\", path_list

' フォルダ内のファイル一覧の出力
FListWrite "c:\out.txt", path_list
' --------------------------------------------------------------------

' フォルダ内のファイル一覧の取得----------
Public Sub GetFDate(ByVal fol_path, ByRef path_list())
    Set fso = CreateObject("Scripting.FileSystemObject")

    For Each f In fso.GetFolder(fol_path).files
        ' ファイルのPATH、更新日時、サイズの設定
        ReDim Preserve path_list(UBound(path_list) + 1)
	if len(f.path)>255 then
        	path_list(UBound(path_list)) = f.path
	end if
        ' ------------------------------------------------------
    Next

    For Each f In fso.GetFolder(fol_path).SubFolders
        GetFDate f.path, path_list
    Next

    Set fso = Nothing
End Sub
' --------------------------------------------------------------------

' フォルダ内のファイル一覧の出力----------
Private Sub FListWrite(ByVal out_path, ByRef path_list())
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txf = fso.CreateTextFile(out_path, True)
    For i = 1 To UBound(path_list)
	if len(path_list(i))>0 then
	        txf.WriteLine path_list(i)
	end if
    Next
    txf.Close
    Set txf = Nothing
    Set fso = Nothing
End Sub
' --------------------------------------------------------------------

ドライブと 出力ファイル名などを 変更して 使ってみてください。

http://homepage2.nifty.com/nonnon/Chinamini/20100001/20101012.html

他7件のコメントを見る
id:taknt

あと、
＞ファイル名は１００文字程度、入っているフォルダを２００文字とかにしていただければ

これだと ファイル名は １００文字なので 私が作ったものだと 出力されません。

2012/04/12 13:07:11
id:gocnia3

あくまでフルパス指定なので要件とちょっとずれてます
ありがとうございました

2012/04/14 10:21:48
id:windofjuly No.2

回答回数2625ベストアンサー獲得回数1149

どのような状況でそうなったのかにもよると思いますが、
ショートファイルネームでも取得できませんか？
(targetFolderとoutputFileの二箇所はそちらの環境に合わせて適宜変更)

Option Explicit

' 宣言
Dim FS1, targetFolder, folder, file, subFolder
Dim FS2, outputFile
Dim fileList

' 初期設定
targetFolder = "z:\"
outputFile = "filelist.txt"

' ファイル一覧取得
Set FS1 = WScript.CreateObject("Scripting.FileSystemObject")
Set folder = FS1.GetFolder(targetFolder)

Sub addFileList(folder)
    For Each file In folder.Files
        ReDim Preserve fileList(UBound(fileList) + 1)
        fileList(UBound(fileList)) = file.ShortName & ":" & file.Name
    Next
    For Each subFolder In folder.SubFolders
        addFileList(subFolder)
    Next
End Sub

fileList = array()
addFileList(folder)

' ファイル出力
Set FS2 = FS1.OpenTextFile(outputFile, 2, True)
FS2.Write join(fileList, vbCrLf)

' CloseやNothingなどは省略
他1件のコメントを見る
id:windofjuly

規定の文字数を超えている場合は正常に取得することが出来ませんので、
ショートファイルネームでのアクセスを提案してみたのですが、それすらも、
ターゲットのファイルシステムがショートファイルネームをサポートしていなければ、
そもそも出来ない話なので、まずは目視確認用のコードを提示しました。

目視確認できたと仮定し、
フルパスでアクセスできるかどうかのテストを組み込む例も提示しておきます

変更前
fileList(UBound(fileList)) = file.ShortName & ":" & file.Name
変更後
If FS1.FileExists(file.Path) = True Then
    fileList(UBound(fileList)) = "OK" & file.Path
Else    
    fileList(UBound(fileList)) = "NG" & file.Path
End IF

関連するプロパティとしては下記のようなものがあります

　ロングショート
ファイルネームfile.Namefile.ShortName
パスfile.Pathfile.ShortPath

　

2012/04/12 12:50:33
id:gocnia3

実施したのですが目視確認もできませんでした
ありがとうございました

2012/04/14 10:20:43
id:beast65 No.3

回答回数68ベストアンサー獲得回数0

ショートファイルで、しゅとくできたら、
取得してみてください

Option Explicit

' 宣言
Dim FS1, targetFolder, folder, file, subFolder
Dim FS2, outputFile
Dim fileList

' 初期設定
targetFolder = "z:\"
outputFile = "filelist.txt"

' ファイル一覧取得
Set FS1 = WScript.CreateObject("Scripting.FileSystemObject")
Set folder = FS1.GetFolder(targetFolder)

Sub addFileList(folder)
For Each file In folder.Files
ReDim Preserve fileList(UBound(fileList) + 1)
fileList(UBound(fileList)) = file.ShortName & ":" & file.Name
Next
For Each subFolder In folder.SubFolders
addFileList(subFolder)
Next
End Sub

fileList = array()
addFileList(folder)

' ファイル出力
Set FS2 = FS1.OpenTextFile(outputFile, 2, True)
FS2.Write join(fileList, vbCrLf)

' CloseやNothingなどは省略

id:beast65 No.4

回答回数68ベストアンサー獲得回数0

ショートファイルで、しゅとくできたら、
取得してみてください

Option Explicit

' 宣言
Dim FS1, targetFolder, folder, file, subFolder
Dim FS2, outputFile
Dim fileList

' 初期設定
targetFolder = "z:\"
outputFile = "filelist.txt"

' ファイル一覧取得
Set FS1 = WScript.CreateObject("Scripting.FileSystemObject")
Set folder = FS1.GetFolder(targetFolder)

Sub addFileList(folder)
For Each file In folder.Files
ReDim Preserve fileList(UBound(fileList) + 1)
fileList(UBound(fileList)) = file.ShortName & ":" & file.Name
Next
For Each subFolder In folder.SubFolders
addFileList(subFolder)
Next
End Sub

fileList = array()
addFileList(folder)

' ファイル出力
Set FS2 = FS1.OpenTextFile(outputFile, 2, True)
FS2.Write join(fileList, vbCrLf)

' CloseやNothingなどは省略

コメント（0件)

コメントはまだありません

この質問への反応（ブックマークコメント）

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません
ユーザー登録をして使いはじめる!無料
すでに登録されている方はこちらからログイン
この質問に含まれるキーワード
知りたいことを検索してみよう
▲ページトップへ