PR
キーワードサーチ
▼キーワード検索
EXCEL VBA TIPS
わたしのブログへようこそ
カレンダー
コメント新着
フリーページ
2008.07.06
テーマ： パソコン講師(299)
カテゴリ： カテゴリ未分類
動機：CDから取り込んだ音楽の名前を一覧にしたいので、こんなもの作ってみた
ソースは次
folderpath = "./"
Set objIEx = CreateObject("InternetExplorer.application")
objIEx.Navigate "about:blank"
Do While objIEx.Busy Or objIEx.ReadyState<>4
Wscript.Sleep 10
Loop
set fs = CreateObject("Scripting.FileSystemObject")
'Set oTs1 = fs.OpenTextFile("ichiran.txt",2,true)
set folder = fs.GetFolder(folderpath)
for each a in folder.Files
if right(a.name,4)=".wma" then
'oTs1.WriteLine left(a.name,len(a.name)-4)
s=s & left(a.name,len(a.name)-4) & vbcrlf
end if
Next
objIEx.Document.parentWindow.clipboardData.setData "text",s
set objIEx=nothing
ソースは次
folderpath = "./"
Set objIEx = CreateObject("InternetExplorer.application")
objIEx.Navigate "about:blank"
Do While objIEx.Busy Or objIEx.ReadyState<>4
Wscript.Sleep 10
Loop
set fs = CreateObject("Scripting.FileSystemObject")
'Set oTs1 = fs.OpenTextFile("ichiran.txt",2,true)
set folder = fs.GetFolder(folderpath)
for each a in folder.Files
if right(a.name,4)=".wma" then
'oTs1.WriteLine left(a.name,len(a.name)-4)
s=s & left(a.name,len(a.name)-4) & vbcrlf
end if
Next
objIEx.Document.parentWindow.clipboardData.setData "text",s
set objIEx=nothing
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
