¦p¤U§@ªk¡G

Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String) FileList = My.Computer.FileSystem.GetFiles("C:\temp, FileIO.SearchOption.SearchAllSubDirectories, "*.*") For Each List1 In FileList Dim F As New FileInfo(List1) if F.LastWriteTime >= #2021/08/01# and F.LastWriteTime <=#2021/08/11# then ±z­nªºÀÉ®× end if

P³¯§A¦n
½Ð°Ý¦³c#¼gªk¶Ü?
³Â·Ð¤F ÁÂÁÂ

ºô¸ô¤W¦³«Ü¦h»yªkÂà´«³nÅé¡A¥i¥H¸Õ¸Õ¬Ý :-)

http://www.developerfusion.com/tools/convert/csharp-to-vb/