VBスクリプトのカントリーファイルのフォルダとファイル名を除外

Question

特定の国のファイル名を特定のフォルダから除外する方法を教えてください。

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 

私は国連& MAのような、特定の国のフォルダをexlcudeたいです。これらのフォルダを生成したくありません。

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 

どうすればいいか教えてください。

ご協力いただきありがとうございます。

Answer 1

あなたのオプション

1. レコードセットを取得したSQL文でWhere句を使用してください。
2. 国コード（???）の白または黒のリストにInStr（ "| aa | bb | ... | zz |"、 "|" &地域& "|"）を使用してください。
3. ディクショナリとd.Exists（Region）を使用して、Regionがそのようなリストの要素であるかどうかを判断します。

CF here