unix, pack folder and contents with tar gz

assbach (assbach) — Mon, 04 Dec 2006 16:28:02 GMT



tar -zcvf packagename.tar.gz folder/

removeDir //PHP Function

jonasraoni (Jonas Raoni Soares Silva) — Sun, 20 Aug 2006 21:26:33 GMT

Removes a folder, including its subfolders and files in a efficient way without recursion, returns Boolean.



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com



function removeFolder($dir){

	if(!is_dir($dir))

		return false;

	for($s = DIRECTORY_SEPARATOR, $stack = array($dir), $emptyDirs = array($dir); $dir = array_pop($stack);){

		if(!($handle = @dir($dir)))

			continue;

		while(false !== $item = $handle->read())

			$item != '.' && $item != '..' && (is_dir($path = $handle->path . $s . $item) ?

			array_push($stack, $path) && array_push($emptyDirs, $path) : unlink($path));

		$handle->close();

	}

	for($i = count($emptyDirs); $i--; rmdir($emptyDirs[$i]));

}

Path parser //Pascal class

jonasraoni (Jonas Raoni Soares Silva) — Thu, 15 Jun 2006 18:40:23 GMT

An unit to get the special folders' path under windows and it also parses paths shortcuts in the form "$(shortcut)/folder/file.ext".



unit PathParser;



interface



uses

  Classes, SysUtils, TypInfo, SysUtils2, ShlObj, ShellApi, Registry, Windows;



type

  TSpecialFolder = ( sfDesktop, sfAppData, sfTemplates, sfPrograms,

    sfPersonal, sfFavorites, sfStartup, sfRecent, sfSendTo, sfStartMenu,

    sfFonts, sfHistory, sfCookies, sfInternetCache, sfCommonFavorites,

    sfCommonDesktop, sfCommonStartup, sfCommonPrograms, sfCommonStartMenu,

    sfProgramFiles, sfTemporary, sfWindows, sfSystem );



  TSpecialFolderSet = set of TSpecialFolder;



  TPathParser = class( TStringList )

  public

    constructor Create( const UseDefaultMap: Boolean = True );

    class function GetSpecialFolder( const Name: TSpecialFolder ): string;

    function Parse( Path: string ): string;

  end;





implementation



{ TPathParser }



uses Dialogs;



constructor TPathParser.Create(const UseDefaultMap: Boolean);

var

  I: TSpecialFolder;

begin

  CaseSensitive := False;

  if UseDefaultMap then begin

    for I := Low( TSpecialFolder ) to High( TSpecialFolder ) do

      Add( RemoveSlash( LowerCase( Copy( GetEnumName( TypeInfo( TSpecialFolder ),

        Ord( I ) ), 3, MAX_PATH ) ) + '=' + GetSpecialFolder( I ) ) );

    Add( RemoveSlash( Format( 'windowsvolume=%s', [ GetSpecialFolder( sfWindows )[1] ] ) ) );

  end;

end;



class function TPathParser.GetSpecialFolder(

  const Name: TSpecialFolder): string;

const

  FoldersMap: array[TSpecialFolder] of Cardinal = ( CSIDL_DESKTOP,

    CSIDL_APPDATA, CSIDL_TEMPLATES, CSIDL_PROGRAMS, CSIDL_PERSONAL,

    CSIDL_FAVORITES, CSIDL_STARTUP, CSIDL_RECENT, CSIDL_SENDTO, CSIDL_STARTMENU,

    CSIDL_FONTS, CSIDL_HISTORY, CSIDL_COOKIES, CSIDL_INTERNET_CACHE,

    CSIDL_COMMON_FAVORITES, CSIDL_COMMON_DESKTOPDIRECTORY, CSIDL_COMMON_STARTUP,

    CSIDL_COMMON_PROGRAMS, CSIDL_COMMON_STARTMENU, 0, 0, 0, 0 );

var

  Res: Bool;

  Path: array[0..MAX_PATH-1] of Char;

  Reg: TRegistry;

begin

  Result := '';

  case Name of

    sfWindows: GetWindowsDirectory( Path, MAX_PATH );

    sfTemporary: GetTempPath( MAX_PATH, Path );

    sfSystem: GetSystemDirectory( Path, MAX_PATH );

    sfProgramFiles:

    begin

      Reg := TRegistry.Create( KEY_READ );

      try

        Reg.RootKey := HKEY_LOCAL_MACHINE;

        Reg.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion', False );

        Result := AddSlash( Reg.ReadString( 'ProgramFilesDir' ) );

      finally

        Reg.Free;

      end;

      Exit;

    end;

  else

    Res := ShGetSpecialFolderPath( 0, Path, FoldersMap[ Name ], False );

    if not Res then

      raise Exception.Create( ClassName + '.GetSpecialFolder: Error on ShGetSpecialFolderPath' );

  end;

  Result := AddSlash( Path );

end;



function TPathParser.Parse(Path: string): string;

var

  S: string;

  I, I2, Pos: Integer;

begin

  I := 1;

  while I <= Length( Path )-3 do

  begin

    if ( Path[I] = '$' ) and ( Path[I+1] = '(' ) then

    begin

      I2 := I + 2;

      while ( I2 <= Length( Path ) ) and ( Path[I2] <> ')' ) do

        Inc( I2 );

      if I2 > Length( Path ) then

        Break;

      S := Copy( Path, I + 2, I2 - ( I + 2 ) );

      System.Delete( Path, I, I2 - I + 1 );

      Pos := IndexOfName( S );

      if Pos > -1 then

      begin

        System.Insert( ValueFromIndex[Pos], Path, I );

        Inc( I, Length( ValueFromIndex[Pos] ) );

      end

      else

        raise Exception.CreateFmt( '%s.Parse: Variável "%s" inexistente', [ ClassName, S ] ); //I := I2 + 1;

    end

    else

      Inc( I );

  end;

  Result := Path;

end;



end.

Find the "My Documents" folder on Windows

korakot (Korakot Chaovavanich) — Mon, 08 Aug 2005 23:01:39 GMT



from win32com.shell import shell

df = shell.SHGetDesktopFolder()

pidl = df.ParseDisplayName(0, None,  

    "::{450d8fba-ad25-11d0-98a8-0800361b1103}")[1]

mydocs = shell.SHGetPathFromIDList(pidl)

Copied from Kevin Dangoor's blog here
http://www.blueskyonmars.com/2005/08/05/finding-a-users-my-documents-folder-on-windows/

DZone Snippets: folder code

unix, pack folder and contents with tar gz

removeDir //PHP Function

Path parser //Pascal class

Find the "My Documents" folder on Windows