Microsoft Dynamics CRM 批量上传web资源（非官方WebResourceUtility）并替换实体图标

背景：

去年以前可以按照目录WebResourceUtility批量上传web资源，昨天发现用不了了，拿到WebResourceUtility源码改了一下都不是很方便，感觉官方写的太冗余，太长了，跟我喜欢的简单粗暴思想不太符合，刚好无意阅览了一个上传资源的代码，干脆自己手写一个根据目录去上传web资源的工具。

工具：

LinqPad 5

Microsoft Dynamics SDK 9.0

XrmToolBox

老规矩先上效果图：

目录包含的文件

批量创建web资源后，发布

 

解决方案添加现有资源

 

 代码

//Microsoft Dynamics CRM 批量上传web资源（非官方WebResourceUtility）替换图标
//对应web资源在mscrm的文件类型
enum FileTypes
{
    HTML = 1,
    CSS = 2,
    JS = 3,
    XML = 4,
    PNG = 5,
    JPG = 6,
    GIF = 7,
    XAP = 8,
    XSL = 9,
    ICO = 10,
    SVG = 11,
    RESX = 12
}
//根据目录获取目录下所有的文件
Dictionary<string, int> GetFilesWithDir(string localPath)
{
    Dictionary<string, int> dict = new Dictionary<string, int>();
    var typelist = Enum.GetNames(typeof(FileTypes));
    var dirs = Directory.GetDirectories(localPath);
    //dirs.Dump();
    foreach (var dir in dirs)
    {
        var files = Directory.GetFiles(dir);
        //files.Dump();
        foreach (var file in files)
        {
            var index = file.LastIndexOf(".");//.Dump();
            if (index == -1) continue;
            var filetype = file.Substring(index + 1).ToUpper();
            if (typelist.Contains(filetype))
            {
                dict.Add(file,
                Enum.Parse(typeof(FileTypes), filetype).GetHashCode()
                );
            }

        }
    }
    return dict;
}

//创建或更新web资源
Guid CreateOrUpateFile2WebResoulse(IOrganizationService service, string filePath, FileTypes type, string rootPath, string serverPath = "new_/icons/")
{
    Stopwatch sw = new Stopwatch();
    sw.Start();

    string fileName = filePath.Replace(rootPath, serverPath).Replace("\", "/");

    var fileContent = File.ReadAllText(filePath);

    fileName = Regex.Replace(fileName, @"[u4e00-u9fa5]", "").Replace("//", "/");

    //常规文本文件
    var customTypes = new int[] { 1, 2, 3, 4, 11, 12 };

    QueryExpression query = new QueryExpression("webresource")
    {
        ColumnSet = new ColumnSet(new string[] { "webresourceid" }),
        Criteria = new FilterExpression(LogicalOperator.And)
    };
    query.Criteria.AddCondition("name", ConditionOperator.Equal, new object[] { fileName });
    EntityCollection entitys = service.RetrieveMultiple(query);

    Guid entityId;

    Entity entity = new Entity("webresource");
    entity["content"] = customTypes.Contains(type.GetHashCode()) ? Convert.ToBase64String(Encoding.UTF8.GetBytes(fileContent.ToString())) : ImgToBase64String(filePath);

    if (entitys.Entities.Count == 0)
    {
        entity["webresourcetype"] = new OptionSetValue(type.GetHashCode());
        entity["displayname"] = fileName;
        entity["name"] = fileName;
        entity["componentstate"] = new OptionSetValue(0);
        entityId = service.Create(entity);
    }
    else
    {
        entity = entitys.Entities[0];
        service.Update(entity);
        entityId = entity.Id;
    }
    sw.Stop();
    Console.WriteLine($"{fileName} 创建/更新成功！耗时：{sw.ElapsedMilliseconds} 毫秒。");
    return entityId;
}

//发布web资源
void publishWebResources(List<Guid> ids,IOrganizationService service)
{
    Stopwatch sw=new Stopwatch();
    sw.Start();
    
    var sb=new StringBuilder();
    
    foreach (var id in ids)
    {
        sb.AppendLine($"
<webresource>{id.ToString().ToUpper()}</webresource>
");
    }
    XElement element = XElement.Parse("<importexportxml>
<webresources>"+sb.ToString()+"</webresources>
</importexportxml>");
    PublishXmlRequest request = new PublishXmlRequest();
    request.ParameterXml = element.ToString();
    service.Execute(request);
    sw.Stop();
    Console.WriteLine($"批量发布！耗时：{sw.ElapsedMilliseconds} 毫秒。");

}
void Main()
{    
    var service = Dynamic365.GetService(Envs.dev);
    
    var rootPath = @"D:Desktop图标20191123图标20191123";
    var targetPath = @"new_/dyicon/";
    var dict=GetFilesWithDir(rootPath).Dump("目录包含的文件");
    
    var ids=new List<Guid>();
    
    foreach (var kv in dict)
    {
        Guid id;
        try
        {
            id=CreateOrUpateFile2WebResoulse(service, kv.Key, (FileTypes)kv.Value, rootPath, targetPath);

        }
        catch(Exception ex)
        {
            ex.Dump();
            
            //报错重新执行一次
            id=CreateOrUpateFile2WebResoulse(service, kv.Key, (FileTypes)kv.Value, rootPath, targetPath);
        }
        ids.Add(id);
    }
    
    publishWebResources(ids,service);
}

问题延伸：

web资源批量上传后，但是还是需要手动选择web资源替换实体图标，这里在xrmtoolbox的插件市场找到iconator插件

 实体修改图标最终效果图

 更换站点地图底色后

 移动端：