Skip to main content

Cari File

<?php
$filter = "2016.pdf";
$folder = '../academic/document/';

$proses = new RecursiveDirectoryIterator("$folder");

foreach(new RecursiveIteratorIterator($proses) as $file)
{
  if (!((strpos(strtolower($file), $filter)) === false) || empty($filter))
  {
    $tampil[] = preg_replace("#/#", "/", $file) . "</br>";
  }
}
sort($tampil);

print_r($tampil);

?>

Comments

Popular posts from this blog

Menggenerate nomor id

<?php //config $database = "dopo"; $tabel = "po"; $kolom_generate ="id"; $kolom_referensi = "id"; /* Database connection start */ $servername = "localhost"; $username = "root"; $password = ""; $dbname = $database; $mysqli = mysqli_connect($servername, $username, $password, $dbname) or die("Connection failed: " . mysqli_connect_error()); $q1 = "select * from $tabel order by $kolom_referensi DESC"; /* Database connection end */ echo '<table>'; // connect to the database // number of results to show per page $per_page = 10000; // figure out the total pages in the database if ($result = $mysqli->query($q1)) { if ($result->num_rows != 0) { $total_results = $result->num_rows; // ceil() returns the next highest integer value by rounding up value if necessary $total_pages = ceil($total_results / $per_page); // check if the 'page' variab...

Hack File .xlsb

For first you must create a backup copy of your Workbook!!! Then you have to rename the XLSB file with ZIP extension. Test.XLSB => Test.ZIP             Opening your ZIP file using a compression software (e.g. WinRar) I can see the content of the file, structured in folders Inside the folder xl you can find a binary file named vbaProject.bin. Extract it on your desktop and edit it using a text editor. In my case I used Notepad++. Using the Find function of your editor, you must search the text DPB And replace the DPB string with DPx Then save the vbaProject.bin and replace this file inside the .ZIP File, renaming then .ZIP file in XLSB. Reopening the XLSB file using Excel, you will get an error message: you have to answer Yes to this error message. Then  Save , Close and Reopen your XLSB file. Now, if you go to VBA Editor (ALT + F11), you ca...

Instal font baru di FPDF.

1. buka url www.fpdf.org/makefont 2. pilih ttf yang akan dimasukkan. sebaiknya pindahkan file ttf dari c:/windows/font ke folder lain. karena C: adalah windows. 3. Upload dan generate. 4. Donwload nama font.php dan font.z copykan ke folder fpdf/font. <?php require( 'fpdf.php' ); $pdf = new FPDF (); $pdf -> AddFont ( 'Calligrapher' , '' , 'calligra.php' ); $pdf -> AddPage (); $pdf -> SetFont ( 'Calligrapher' , '' , 35 ); $pdf -> Write ( 10 , 'Enjoy new fonts with FPDF!' ); $pdf -> Output (); ?>