VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net

[171 デフォルトの名無しさん 2017/12/17(日) 21:42:00.34 ID:CjttRUiY]

>>170
dataじゃなくてdateね

Dim objFileSys
Dim objFolder
Dim objFile
Dim sdate
Dim a

Set objFileSys = CreateObject("Scripting.FileSystemObject")

sdate = Replace(Date,"/","")

Set objFolder = objFileSys.GetFolder("c:\Filedate")

For Each objFile In objFolder.Files

If instr(objFile.Name,sdate) <> 0 then

end if

Next