Dim aH() As String = (From f In Directory.GetFiles(SuchOrdner, "*", SearchOption.AllDirectories) Where ( f.EndsWith(".dotx") Or f.EndsWith(".dotm") Or f.EndsWith(".docx") Or f.EndsWith(".docm") Or f.EndsWith(".dot") Or f.EndsWith(".doc") ) And (Not f.Contains("~")) Select f ).ToArray()
