- ベストアンサー
フォルダ一覧の並べ替え
フォルダ一覧をするコードです。下記はフォルダ名順に並んで表示されますが、これを逆順に並べ替えする方法についてアドバイスいただけないでしょうか。検索するもなかなか探せず。もしくはフォルダ作成日の新しい順でも可 です。 <% Set fs = CreateObject("Scripting.FileSystemObject") di = fs.GetParentFolderName(Request.ServerVariables("PATH_TRANSLATED")) Set f = fs.GetFolder(di) Set fc = f.SubFolders For Each f1 In fc Response.write f1.Name & "<BR>" Next %>
- s-holmes
- お礼率47% (767/1609)
- Microsoft ASP
- 回答数2
- ありがとう数5
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
逆順案だけ、アドバイスしますね。如何でしょう。 ・正順 dirs = dirs & f1.Name & "<BR>" & vbCrLf ・逆順 dirs = f1.Name & "<BR>" & vbCrLf & dirs <% Set fs = CreateObject("Scripting.FileSystemObject") di = fs.GetParentFolderName(Server.MapPath(".")) Set f = fs.GetFolder(di) Set fc = f.SubFolders dirs = "" For Each f1 In fc dirs = f1.Name & "<BR>" & vbCrLf & dirs Next Response.write dirs %>
その他の回答 (1)
- taka_tetsu
- ベストアンサー率65% (1020/1553)
お礼
回答ありがとうございました。 詳しい説明なので勉強になります。 早速試してみたいと思います。（未着手 (^^; ）
関連するQ&A
- VB.NETでファイル名順にファイルを読む方法
VB.NETで、あるフォルダ内のファイルをファイル名順に読む方法を教えてください。 ちなみに、現在は、以下のような処理をしています。 fs = CreateObject("Scripting.FileSystemObject") f = fs.GetFolder(strDirPath) fc = f.Files For Each f1 In fc ・ ・ ・ Next ご回答、よろしくお願いします。
- 締切済み
- Visual Basic
- VBSで指定したフォルダー内のファイルを書き出さないようにする
あるフォルダ以下のファイル名を出力ファイル、f.name.txtに書き出すのですが "新しいフォルダ"というフォルダのなかにあるファイルは書き出さないようにしたいのですが、意に反してフォルダー内の全てのファイル名を書き出してしまいます。どこがおかしいのでしょう? ********************************************** Set FSO = CreateObject("Scripting.FileSystemObject") Set fl = WScript.CreateObject("Scripting.FileSystemObject") Set abc = fl.CreateTextFile("f.name.txt") ShowSubfolders FSO.GetFolder(".") Sub ShowSubFolders(Folder) For Each File in Folder.Files 'Folder内のファイルを列挙する Fname = File.name FolderCheck=Folder & "\" & "新しいフォルダ" If Folder <> FolderCheck Then abc.Write Folder & "\" & Fname & vbCrLf End If Next For Each Subfolder in Folder.SubFolders 'Foler内のフォルダを列挙する ShowSubFolders Subfolder '再帰呼び出し Next End Sub abc.Close
- ベストアンサー
- その他（プログラミング・開発）
- vbaでフォルダ属性がうまく取れません
vbaでフォルダ属性が隠しフォルダかどうかを調べるコードを書いています。 C:\ProgramData\ は隠しフォルダなのに、なぜか16が返って来ます。 試しにvbs(wsh)だと18が返って来ます。 環境は Win10 + Excel2013(32ビット) です。 vbaで返値18を求めるにはどうすれば良いのでしょうか。 Sub test() Dim mPath Dim fso, f mPath = "C:\ProgramData\" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(mPath) MsgBox f.Attributes End Sub
- ベストアンサー
- Visual Basic
- Ｆｏｌｄｅｒオブジェクトでsubfoldersプロパティが使えない
Excel2000のVBAで、ユーザーがダイアログで選択したフォルダのサブフォルダのコレクションを取得しようとしています。 次のようなコード１にしたら、oFolderオブジェクトでは「Subfoldersプロパティをサポートしていない」旨のエラーが出ます。そこで、もう一段関数をかませて、その関数中でSet oFileSys = CreateObject("Scripting.FileSystemObject") Set folder1 = oFileSys.GetFolder(folder_name)のようにして、別途ｆｏｌｄｅｒオブジェクトを作成し、コード１の「colFolder」へ返すようにしてみたところ、うまく動きました。下記コード１中の「oFolder」と上の関数内の「folder1」は、いずれもFolderオブジェクトなのに、プロパティの種類が違うのはなぜでしょうか？ ちなみに、オブジェクトブラウザで調べると、Folderクラスには、subfoldersプロパティというのが確かにありません！が、ＶＢのヘルプにはしっかりとFolderオブジェクトの中にSubfoldersプロパティが載っています。 ＜コード1＞ Function フォルダ選択(メッセージ As String) As Object Dim oShell As Object，oFolder As folder，colFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, メッセージ, 1, "S:\") If Not (oFolder Is Nothing) Then Set colFolder = oFolder.subfolders Set フォルダ選択=colFolder Else MsgBox "フォルダを選択しないと継続できません。" End；End If；END SUB
- ベストアンサー
- Visual Basic
- サブフォルダ内のフォルダ名取得
連続処理のため、特定フォルダ以下のフォルダ名全てを取得する必要があります。 そこで本に書いてあったコードを試してみたのですが、フォルダ以下のサブフォルダまでしか取得できませんでした。 サブフォルダ以下にもフォルダがあるのですが、どのようにして取得すればいいのでしょうか？ ↓以下が試してみてコードになります With CreateObject("Scripting.FileSystemObject") With .getfolder(Start_Path) For Each Obj_Folder In .subfolders WorkSheets.Cells(i, 2).Value = Obj_Folder.name i = i + 1 Next Obj_Folder End With End With
- 締切済み
- Visual Basic
- フォルダをリネームしたい
いつもお世話になっております。 フォルダの名前を変更しようとしていますが、うまくいきません。 ASP(VBS)にて行ってます。 以下のように書いてみましたが、フォルダ名が変更されません。 以下ソース。 「12345」というフォルダ名を「67890」に変更したいのです。 <% Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolde("./uploads/12345") f.Name = "67890" %> どなたかご存知の方がいらしゃいましたら、ご教授お願いします。
- ベストアンサー
- Microsoft ASP
- VBScriptで、任意のフォルダコレクションを取得するには？
VBScriptについて質問します（マイナーですみません） 任意のフォルダコレクションを取得して、 そのフォルダ名を１つ１つ得たいんですが、 うまくいきません。 FileSystemObjectを作成して、 任意のフォルダ（MyFolder）を取得することはできました。 Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFolder("C:/....../デスクトップ/MyFolder") いま、MyFolder の下に、複数のサブフォルダがあるとき、 サブフォルダのコレクションを取得して、 サブフォルダ名を１つ１つ得るには、 どうしたらいいのでしょうか？ よろしくおねがいします。
- ベストアンサー
- その他（プログラミング・開発）
- ＶＢＡ SFO C:\Windows
Ｃドライブには、 IntelもWindowsのどちらのフォルダも存在するのに Sub Sample() Dim myFSO As Object Debug.Print CreateObject("scripting.filesystemobject").GetFolder("C:\Intel").Size Debug.Print CreateObject("scripting.filesystemobject").GetFolder("C:\Windows").Size Set myFSO = Nothing End Sub をＶＢＡで実行すると \Windows の方だけエラーになります。 エラー内容は 実行時エラー 70 書き込みできません。 です。 何故でしょうか？
- ベストアンサー
- Visual Basic
- VBA 一つのフォルダの中のフォルダ名とファイル名
一つのフォルダの中のフォルダ名とファイル名を取得したい場合は ************************************** Sub test() Dim MyFileName As String Dim MyFolderName As String Dim myFSO As Object Dim MyFolder As Scripting.Folder MyFolderName = "C:\" 'フォルダを取得 MyFileName = Dir(MyFolderName & "*.*") Do While MyFileName <> "" Debug.Print MyFileName MyFileName = Dir() Loop 'ファイルを取得 Set myFSO = CreateObject("Scripting.FileSystemObject") With myFSO With .GetFolder(MyFolderName) For Each MyFolder In .SubFolders Debug.Print MyFolder.Name Next End With End With Set myFSO = Nothing End Sub ************************************** の様に ファイル名・フォルダ名をそれぞれループして取得しないとダメでしょうか？ もうちょっとスマートなコードはありますか？
- ベストアンサー
- その他（プログラミング・開発）
- 再度:VBSで指定したフォルダー内のファイルを書き出さないようにする
先ほども似たような質問をしました。 あるフォルダの中にあるファイル名の一覧をファイル"f.name.txt"を書き出したいのですが"新しいフォルダ"のなかにあるファイルは書き出さないようにしたいです。下記のVBSは"新しいフォルダ"のなかに更にフォルダが階層的に存在するときには"新しいフォルダ"の中のファイルも全て書き出してしまいます。 "新しいフォルダ"の中にフォルダがない場合は正しく動きます。 "新しいフォルダ"の中にフォルダが階層的にあっても"新しいフォルダ" の中にあるファイル名を書き出さないようにするにはどうしたらよいのでしょう? ************************************************************** Set FSO = CreateObject("Scripting.FileSystemObject") Set fl = WScript.CreateObject("Scripting.FileSystemObject") Set abc = fl.CreateTextFile("f.name.txt") ShowSubfolders FSO.GetFolder(".") Sub ShowSubFolders(Folder) If Folder.Name <> "新しいフォルダ" Then For Each File in Folder.Files 'Folder内のファイルを列挙する Fname = File.name abc.Write Folder & "\" & Fname & vbCrLf Next End If For Each Subfolder in Folder.SubFolders 'Folder内のフォルダを列挙する ShowSubFolders Subfolder '再帰呼び出し Next End Sub abc.Close
- ベストアンサー
- その他（プログラミング・開発）
お礼
回答ありがとうございました。 こんなに簡単な方法があるとは・・。 ＃でも、動作はするも、その意味がイマイチわからずの現状。 (^^;