단순한 디렉토리 루핑을 재 작성하는 C vbscript의 날카로운 코드?

Question

우리의 환경에서 Windows 버전과 .NET 설치의 폭이 넓어서 .NET을 필요로하지 않는 언어로 다음 C 날카로운 코드를 다시 작성해야합니다. 어쩌면 VBScript를 생각하고 있었지만이 포트를 얼마나 쉽게 사용할 수 있을지 모르겠습니다. 간단한 VBScript를 솔루션을 요구하는 경우

 try 
     { 
      string docsDir = Environment.GetFolderPath(Environment.SpecialFolder.Mydocuments); 

      if (Directory.Exists(docsDir)) 
      { 
       // get all folders 
       DirectoryInfo dInfo = new DirectoryInfo(docsDir); 
       DirectoryInfo[] dirs = dInfo.GetDirectories(); 

       // start process 
       Process p = new Process(); 
       ProcessStartInfo info = new ProcessStartInfo(); 
       info.FileName = "cmd.exe"; 
       info.RedirectStandardInput = true; 
       info.RedirectStandardOutput = false; 
       info.CreateNoWindow = true; 
       info.UseShellExecute = false; 

       p.StartInfo = info; 
       p.Start(); 

       using (StreamWriter sw = p.StandardInput) 
       { 
        if (sw.BaseStream.CanWrite) 
        { 
         foreach (DirectoryInfo dir in dirs) 
         { 
          sw.WriteLine("FixPerms.exe" + dir.Name); 
         } 
        } 
       } 
      } 
      return true; 
     } 
     catch 
     { 
      return false; 
     } 
    } 

Answer 1

,이

Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder(server.mappath(path)) 
Set sf = f.SubFolders 
for each fo in sf 

가 뭔가

next 

Answer 2

이것은 .cmd (또는 .bat) 파일을 사용하여 트릭을 할해야를 수행 도움이 될 수 있습니다, 모든 Windows 시스템에서 작동해야합니다.

@ECHO OFF 
SETLOCAL 

:: Set exit code to a failure code 
SET /A EXITCODE=-1 

:: Get the MyDocuments Folder 
FOR /F "skip=2 tokens=3" %%A IN ('REG.exe query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v "Personal"') DO (
    CALL :SetDocuments %%A 
) 

:: If MyDocuments doesn't exist, exit 
IF NOT EXIST "%MyDocuments%" GOTO :END 

:: Run the FixPerms.exe tool on each directory 
FOR /F "tokens=*" %%A IN ('DIR /B /AD "%MyDocuments%"') DO (
    CALL :RunProgramOnDirectory %%A 
) 

:: Set exit code to success 
SET /A EXITCODE=0 

:END 
ENDLOCAL&EXIT /B %EXITCODE% 

:SetDocuments 
SET MyDocuments=%* 
GOTO :EOF 

:RunProgramOnDirectory 
SET directoryName=%* 
START /MIN CMD.exe /C FixPerms.exe "%directoryName%" 
GOTO :EOF