If FileSys.GetName(f).StartsWith(dr("图纸号")) Then
改成
If FileSys.GetName(f).Split(" ")(0) = dr("图纸号") Then