Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

76387 / 76807

←次へ　｜　前へ→


	【4843】Re:cookieの情報を取り出して比較したい

まさ - 03/4/10(木) 12:43 -


	引用なし

	パスワード

ポンタさんありがとうございます。
大変参考になりました。
うまくできそうです。

▼ポンタさん：
>私もはじめて作ったのであまり自信ありませんが、
>こんな感じでいかがでしょう？
>
>標準モジュールに貼り付けてお試しください。
>
>Sub test()
>　　Dim objShell As Object
>　　Dim MyPath As String
>　　Dim objFs As Object
>　　Dim objFolder As Object
>　　Dim i As Integer
>　　Dim objFile As Object
>　　Dim objText As Object
>　　Set objShell = CreateObject("WScript.Shell")
>　　MyPath = objShell.SpecialFolders("Favorites")
>　　Set objFs = CreateObject("Scripting.FileSystemObject")
>　　Set objFolder = objFs.getfolder(MyPath)
>　　Set objFolder = objFolder.ParentFolder
>　　MyPath = objFolder.Path & "\cookies"
>　　If objFs.FolderExists(MyPath) Then
>　　　　Set objFolder = objFs.getfolder(objFolder.Path & "\cookies")
>　　Else
>　　　　MsgBox ("""Cookie""フォルダを見つけられません")
>　　　　Exit Sub
>　　End If
>　　i = 1
>　　For Each objFile In objFolder.Files
>　　　　Cells(i, 1).Value = objFile.Name
>　　　　Set objText = objFile.OpenAsTextStream(1)
>　　　　Do
>　　　　　　Cells(i, 2).Value = "'" & objText.ReadLine
>　　　　　　i = i + 1
>　　　　Loop Until objText.AtEndOfStream
>　　Next
>End Sub

1 hits

▼

【4835】cookieの情報を取り出して比較したい まさ 03/4/9(水) 22:01