在VB腳本中排除國家文件夾和文件名

-2

我需要你的幫助如何排除給定文件夾的特定國家文件名。在VB腳本中排除國家文件夾和文件名

DIM datasource 

    datasource = objRs.Fields(0).Value 
    Region = replace(objRs.Fields(1).Value," ","_",1,-1,0) 
    CountryCode = Region &"_"& serialNumber1 
    '----------------------------------------------------------------- 
    'Region subfolder creation    
    packageCountryDataPath = outputfolder&"\"& Region 
    If Not fso.FolderExists(packageCountryDataPath) Then 
     fso.CreateFolder(packageCountryDataPath) 
     WScript.Echo "Regions Folders created: " & Region & "" 
    End If

我想exlcude像聯合國& MA只有特定國家的文件夾。我不想生成這些文件夾

Do Until objRs.EOF 
    datasource = objRs.Fields(0).Value 
    WScript.Echo datasource 
    Region = replace(objRs.Fields(1).Value," ","_",1,-1,0) 
    CountryCode = Region &"_"& serialNumber1 
    '----------------------------------------------------------------- 
    'Region subfolder creation    
    packageCountryDataPath = outputfolder&"\"& Region 
    If Not fso.FolderExists(packageCountryDataPath) Then 
     fso.CreateFolder(packageCountryDataPath) 
     WScript.Echo "Regions Folders created: " & Region & "" 
    End If 
    WScript.Echo "Regions Folders created: " & packageCountryDataPath & "" 

    Set folder = fso.GetFolder(Inputfile) 
    Set files = folder.Files 
    For each item In files 
     If Instr(item.Path,".xml") <> 0 then 
     logfilename =item.Name 
     logfilename= replace(logfilename,".xml","",1,-1,0) 
      returnValue = exportDatasource(item.Path,logfolder&"\"& logfilename &".log", datasource, CountryCode, DateTime, utilsfolder, packageCountryDataPath, dbDataSource, dbLogin, dbPassword)      
     If returnValue = 0 Then 
      'WScript.Echo "Datasource " & Region & " processed" 
     Else 
      WScript.Echo "Error while processing Datasource " & Region 
      Exit Do 
     End If 
     End If

請讓我們知道如何做到這一點。

非常感謝您的幫助。

來源

2017-03-06 Sunitha

提供文件名的一些示例被包括和排除。 –

請提供[mcve]。 – Heinzi

如何定義'outputfolder'？ – Icepickle