- ベストアンサー
FileSystemObject ＆ For Eachループで・・・
KojiSの回答
- KojiS
- ベストアンサー率46% (145/312)
そうそう Gotoを Resumeに変更した方が良いという考えの説明をしていませんでしたね。 Resumeする前までは「エラー処理中」なので、Resumeでエラー中をクリアした方が良いと思う、という事です。 後は、終了処理中にエラーが発生しないようなコーディングにすると。
関連するQ&A
- セレクトボックスに表示されたファイル名を変数に格納する方法
すみません、説明が足りませんでした。 あるフォルダに存在するファイルをセレクトボックスに １行毎に１ファイル名表示させています。 そのファイル名の中から１つのファイル名を選択し、 実行ボタンを押したタイミングで、選択されたファイル名を Dimで定義した変数に格納したいのです。 私の記述では<option>タグは１つのみで複数のファイル名を 表示させています。 ///////////////////////////////////////////////////////// 現在以下のソースを記述しています。 <% Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder("C:\TEMP") For Each objFile In objFolder.Files str = str & objFile.Name & vbCR next %> <SELECT SIZE=20 ID=select1 NAME=select1 STYLE="width:320px" MULTIPLE TABINDEX=70> <% For Each objFile In objFolder.Files %> <option><%= objFile.Name%></option> <% Next %> </SELECT>
- ベストアンサー
- HTML
- VBSのGetFolderメソッドについてですが
VBSで質問です。環境はXP Proです。 GetFolderメソッドでFolderオブジェクトを取得し、Filesプロパティを For Eachでチェックしている時に、フォルダ内ファイルが削除された場合は、例外処理が起こるのでしょうか？ それとも、削除処理自体が排他制御されてしまうのでしょうか？ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ' 環境設定 Const strRootPath = "D:\" '監視対象フォルダ Dim objFso,objFolder,objFile,count Set objFso = CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(strRootPath) count = 0 ' メインスクリプトの実行開始 For Each objFile In objFolder.Files ' このタイミングでファイルが削除されてしまったら？ If objFso.GetExtensionName(objFile) = "txt" Then count = count + 1 End If Next 皆様のお知恵をお貸しください。
- ベストアンサー
- Visual Basic
- 選択したファイル名を取得する方法について -再度質問します-
ASPとVBScript、JavaScriptを使用した開発を行っています。 あるフォルダに存在するファイルをセレクトボックスに １行毎に１ファイル名表示させています。 そのファイル名の中から１つのファイル名を選択し、 実行ボタンを押したタイミングで、選択されたファイル名を Dimで定義した変数に格納したいのです。 当方ASPでの開発は初心者でして、クライアント側、サーバ側の 処理の区別がまだつかない状況で申し訳ないのですが FORMタグなどを使用しているので、サーバ側処理になると思うのですが 教えて頂けると有り難いです。 私の記述では<option>タグは１つのみで複数のファイル名を 表示させています。 ///////////////////////////////////////////////////////// 現在以下のソースを記述しています。 <% Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder("C:\TEMP") For Each objFile In objFolder.Files str = str & objFile.Name & vbCR next %> <SELECT SIZE=20 ID=select1 NAME=select1 STYLE="width:320px" MULTIPLE TABINDEX=70> <% For Each objFile In objFolder.Files %> <option><%= objFile.Name%></option> <% Next %> </SELECT>
- ベストアンサー
- HTML
- 複数のフォルダ内の名前や作成日等をリスト化する方法
複数のフォルダ内の名前や作成日等をリスト化する方法 こんにちは。 以下に示しますマクロは フォルダ内の名前や作成日等（サブディレクトリを含む）をリスト化するもので 以前同サイト内で教えて頂きました。 現在このマクロでは シート１のAセルにフォルダのパスを入力して実行すると、 シート２にフォルダ内の情報がリスト化されます。 このマクロでは１つのフォルダ内の情報をリスト化することが可能ですが、 今回は更に、 エクセルのA列にフォルダのパスを複数個入力し、 それらのフォルダ内の情報を、それぞれ別シートに 一気にリスト化したいと考えています。 ご存じの方がいらっしゃいましたら よろしくお願いいたします。 Sub makeFileList() Call fileList MsgBox "終了しました" Columns.AutoFit 'すべての列幅を自動調整する End Sub Function fileList(Optional trgDir As String = "", Optional fCnt As Long = 0) On Error GoTo err Dim objFs As Object Dim objDir As Object Dim objFile As Object Dim i As Long Set objFs = CreateObject("Scripting.FileSystemObject") If trgDir = "" Then Set objDir = objFs.Getfolder(Sheets("sheet1").Range("a1")) Else Set objDir = objFs.Getfolder(trgDir) End If Set objFile = objDir.Files With Sheets("sheet2") For Each objFile In objDir.Files fCnt = fCnt + 1 .Cells(fCnt, 1).Offset(1, 0) = fCnt .Cells(fCnt, 2).Offset(1, 0) = objFile.DateCreated .Cells(fCnt, 3).Offset(1, 0) = objFile.DateLastModified .Cells(fCnt, 4).Offset(1, 0) = objFile.Path .Range("A1").Value = "Ｎｏ" .Range("B1").Value = "作成日" .Range("C1").Value = "更新日" .Range("D1").Value = "ファイル名" Next objFile For Each objDir In objDir.SubFolders If objDir.Attributes <> 22 Then 'システムフォルダ除外 '--------------サブフォルダの再帰検索 Call fileList(objDir.Path, fCnt) '--------------サブフォルダの再帰検索 End If Next objDir End With Set objFile = Nothing Set objDir = Nothing Set objFs = Nothing Exit Function err: Select Case err.Number Case 76 ' path がない MsgBox "path 指定が間違っています" Case Else MsgBox err.Number & vbCrLf & err.Description End Select Set objFile = Nothing Set objDir = Nothing Set objFs = Nothing End Function
- ベストアンサー
- Visual Basic
- ファイル名をエクセルにリスト化するマクロの応用
ファイル名をエクセルにリスト化するマクロの応用 こんにちは。 以下に示しますマクロは フォルダ内の名前や作成日等（サブディレクトリを含む）を エクセルにリスト化するもので 以前同サイト内で教えて頂きました。 現在このマクロでは シート１のAセルにフォルダのパスを入力して実行すると、 シート２にフォルダ内の情報がリスト化されます。 このマクロでは１つのフォルダ内の情報をリスト化することが可能ですが、 今回は更に、 エクセルのA列にフォルダのパスを複数個入力し、 それらのフォルダ内の情報を、それぞれ別シートに 一気にリスト化したいと考えています。 ご存じの方がいらっしゃいましたら よろしくお願いいたします。 プログラミングに関する知識はほとんどありません… 具体的に、どこに何を入力するのかを教えていただけると嬉しいです。 お手数をおかけし、すいません。 ※以下は以前nicotinismさんに回答いただいたマクロを 参考にさせていただいております。 Sub makeFileList() Call fileList MsgBox "終了しました" Columns.AutoFit 'すべての列幅を自動調整する End Sub Function fileList(Optional trgDir As String = "", Optional fCnt As Long = 0) On Error GoTo err Dim objFs As Object Dim objDir As Object Dim objFile As Object Dim i As Long Set objFs = CreateObject("Scripting.FileSystemObject") If trgDir = "" Then Set objDir = objFs.Getfolder(Sheets("sheet1").Range("a1")) Else Set objDir = objFs.Getfolder(trgDir) End If Set objFile = objDir.Files With Sheets("sheet2") For Each objFile In objDir.Files fCnt = fCnt + 1 .Cells(fCnt, 1).Offset(1, 0) = fCnt .Cells(fCnt, 2).Offset(1, 0) = objFile.DateCreated .Cells(fCnt, 3).Offset(1, 0) = objFile.DateLastModified .Cells(fCnt, 4).Offset(1, 0) = objFile.Path .Range("A1").Value = "Ｎｏ" .Range("B1").Value = "作成日" .Range("C1").Value = "更新日" .Range("D1").Value = "ファイル名" Next objFile For Each objDir In objDir.SubFolders If objDir.Attributes <> 22 Then 'システムフォルダ除外 '--------------サブフォルダの再帰検索 Call fileList(objDir.Path, fCnt) '--------------サブフォルダの再帰検索 End If Next objDir End With Set objFile = Nothing Set objDir = Nothing Set objFs = Nothing Exit Function err: Select Case err.Number Case 76 ' path がない MsgBox "path 指定が間違っています" Case Else MsgBox err.Number & vbCrLf & err.Description End Select Set objFile = Nothing Set objDir = Nothing Set objFs = Nothing End Function
- ベストアンサー
- Visual Basic
- For Each Nextにつきまして
Dim a As Chart For Each a In Charts a.Delete Next a Setステートメントを用いないという事は、aはすべてのグラフシートが代入されている事になりますか。しかしeachという事は、結局二行目で行っているのは、全グラフシート中の一枚の確認…ですか？グラフシートを一枚ずつ確認して、一枚ずつ削除しているのですか？ またグラフシートが一枚も無い状態でもエラーが起きないのはなぜ？ 無ければ、For Each～Next内の処理が実行されないのですか。 宜しく、お願いします。
- ベストアンサー
- Visual Basic
- WSH_フォルダ内の処理について
昨日から作成しているのですが、 新しく質問を立ち上げます。 下記のように、フォルダ内に格納してあるファイルを 取得できるのですが、フォルダ内で作成日時を見て 最新のファイル以外は削除させたい処理をやりたいです。 ファイル名を明示的に記載し比較はできるのですが、 フォルダ内の中から作成日時の最新のファイルを取得する っていうのができません。 下記ソースはイメージです。 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\test") For Each objFile In objFolder.Files If objFile.type = ファイルタイプ Then 上記ファイルタイプで最新の日付のファイルを出力 上記ファイル以外削除 Else 上記ファイルタイプが存在しなければ何も処理を行わないず フォルダ内のファイル一覧を取得 WScript.Echo " " & objFile.Name Wscript.Echo "NG" End If Next 調べているのですが、簡単なソースしか作れません。 お願いします
- ベストアンサー
- その他（プログラミング・開発）
- ファイルを探すプログラムで c:\のみ動かない
ファイルを探すプログラムをネット頂き テストしたのですが c:\ のみ 動かず c:\*** は そのフォルダーから下を探します e:\ は 全てのフォルダーを探します。 ＷＩＮ８ ですが どこで間違ってるのでしょうか？ よろしくどうぞ Option Explicit Private g_dteDate As Date Private g_strEXT As String '参照設定 M-Scripting.Runtime Cells(1, 2).Value に 探すアドレス 記載 c:\ e:\ c:\*** など Sub Sample_FileSearch2() Dim vntF As Variant Dim objFSO As FileSystemObject Dim dteDate As Date Dim GYO As Long Dim cntFound As Long Set objFSO = New FileSystemObject ' FSO Rows("5:65536").ClearContents GYO = 4 ’ g_dteDate = DateAdd("m", Cells(3, 2).Value * -1, Date) 更新 不要 g_strEXT = UCase(Trim(Cells(2, 2).Value)) ' ルートフォルダから探索開始 Call Sample_FileSearch2_SUB(objFSO, _ objFSO.GetFolder(Trim(Cells(1, 2).Value)), GYO, cntFound) Set objFSO = Nothing ' 処理結果の表示 If cntFound = 0 Then MsgBox "見つかりません" Else MsgBox cntFound & "個見つかりました" End If End Sub '''******************************************************************************* ''' ファイル探索処理(再帰動作) '''******************************************************************************* Private Sub Sample_FileSearch2_SUB(objFSO As FileSystemObject, _ ByVal objFolder As Folder, _ GYO As Long, cntFound As Long) Dim objFolder2 As Folder Dim objFile As File ' サブフォルダの探索 For Each objFolder2 In objFolder.SubFolders ' サブフォルダ個々の探索(再帰動作) Call Sample_FileSearch2_SUB(objFSO, objFolder2, GYO, cntFound) Next objFolder2 ' このフォルダ内のファイルの探索 For Each objFile In objFolder.Files ' ここから条件判断 With objFile If (UCase(objFSO.GetBaseName(.Path)) = g_strEXT) Then GYO = GYO + 1 Cells(GYO, 1).Value = .Name Cells(GYO, 2).Value = .DateLastModified Cells(GYO, 3).Value = _ Left(.Path, Len(.Path) - Len(.Name) - 1) cntFound = cntFound + 1 End If End With Next objFile End Sub
- ベストアンサー
- Visual Basic
- VBSで、テキストファイルに対して、全体の途中に文字列を追加したい
こんばんわ ＶＢＳについて質問です。 テキストファイルを開いて、文字列を追加するスクリプトを作成したいのですが、 以下のようなプログラムであれば、行の一番下に文字を追加できると思います。 ########ここから Dim objFS,objText,objFile Set objFS = CreateObject("Scripting.FileSystemObject") Set objFile = objFS.GetFile("C:\test\vbs\test.txt") Set objText = objFile.OpenAsTextStream(8,-2) objText.WriteLine("新しい行") Set objFILE = Nothing Set objText = Nothing ############ここまで しかし今やりたいのは分の途中に文字をいれたい。 たとえばテキストファイルが A B C D というファイルだったら、 "B"を検索して、Bの下に”新しい行”という文字列を追加したいです。 いろいろ調べましたがどうもうまくいきません。 わかる方ご教授願います。
- ベストアンサー
- その他（プログラミング・開発）
- VBA DateLastModifiedプロパ
DateLastModifiedプロパティは撮影日時と言う意味にもなりますか？ https://msdn.microsoft.com/ja-jp/library/cc428100.aspx を見る限りでは撮影日時ではないのですが Sub 撮影日時を取得する() Dim objFol, shellObj, folderObj, myFile Dim objFS As FileSystemObject Set objFS = CreateObject("Scripting.FileSystemObject") Set shellObj = CreateObject("Shell.Application") MyFolderName = "C:\Users4\Desktop\natsumi\test" Set objFol = objFS.GetFolder(MyFolderName) Set folderObj = shellObj.Namespace(MyFolderName) For Each myFile In objFol.Files Debug.Print myFile.Name & "/" & myFile.DateLastModified Next Set objFS = Nothing Set objFS = Nothing Set objFol = Nothing Set shellObj = Nothing Set folderObj = Nothing End Sub を実行すると撮影日時ががDateLastModifiedと一致するのですが これは偶然ですか？
- ベストアンサー
- オフィス系ソフト