display pdf from byte array c# : How to rotate all pages in pdf at once Library application component asp.net windows wpf mvc 1200%20macro_examples36-part154

361
Function CountFiles(tgtDir As StringAs Integer
Dim fName As String
'Retrieve the first entry, handle error if directory not found
On Error GoTo badDirectory
fName = Dir(tgtDir & "\*.xls")
On Error GoTo 0
'loop through all files in the directory and increment the function's value
Do While fName <> ""
' Ignore the current directory and
' the encompassing directory.
If fName <> "." And fName <> ".." Then
CountFiles = CountFiles + 1
End If
' Get next entry.
fName = Dir()
Loop
Exit Function
badDirectory:
'come here if directory can not be accessed
MsgBox "The directory you specified does not exist or " & _
"can not be accessed.  Activity halted."
End
End Function
The following is another function that counts the number of files in a directory.  The subroutine
below runs this function and counts the number of files in the C:\Temp directory.
Sub Test1()
MsgBox CountFiles("C:\TEMP\") & " files"
End Sub
Function CountFiles(tgtDir As String)
Dim fName As String
Dim cnt As Integer
' Retrieve the first entry.
fName = Dir(tgtDir)
cnt = 0
' Start the loop.
How to rotate all pages in pdf at once - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
how to rotate pdf pages and save permanently; save pdf rotate pages
How to rotate all pages in pdf at once - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to rotate pdf pages and save; permanently rotate pdf pages
362
Do While fName <> ""
' Ignore the current directory and
' the encompassing directory.
If fName <> "." And fName <> ".." Then
cnt = cnt + 1
End If
' Get next entry
fName = Dir()
Loop
'set the function equal to the number of files counted
CountFiles = cnt
End Function
16.12 How To Obtain The User's Temp Directory
The following returns the user's Windows Temp directory
Sub TempDir()
MsgBox Environ("Temp")
End Sub
16.13 Getting The Windows Directory
One way to get the Windows directory is to use the Environ function:
MsgBoxEnviron("Windir")
Another way is to use the following function (author unknown), will return the Windows
directory:
'32
-
bit API declaration
Declare Function GetWindowsDirectoryA Lib "KERNEL32" _
(ByVal lpBuffer As StringByVal nsize As Integer) _
As Integer
'16
-
bit API declaration
Declare Function GetWindowsDirectory Lib "KERNEL" _
(ByVal lpBuffer As StringByVal nsize As Integer) _
As Integer
Function WindowsDir()
C# HTML5 PDF Viewer SDK deployment on Visual Studio .NET
pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET Compatible with all Windows operating system in both 32 HTML5 Viewer Demo or XDoc.PDF.HTML5 Editor
how to rotate a single page in a pdf document; pdf expert rotate page
VB.NET PDF - Deploy VB.NET HTML5 PDF Viewer on Visual Studio.NET
edit, C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET Introduction to How to Build Online VB.NET PDF Viewer in Visual All Rights Reserved
rotate a pdf page; pdf rotate all pages
363
'Returns the Windows  directories
Dim WinDir As String * 255
'Determine if Excel is 16
-
bit or 32
-
bit
Select Case Left(Application.Version, 1)
Case "5"
'16
-
bit
WLen = GetWindowsDirectory(WinDir, Len(WinDir))
Case Else
'32
-
bit
WLen = GetWindowsDirectoryA(WinDir, Len(WinDir))
End Select
WindowsDir = Left(WinDir, WLen)
End Function
16.14 Getting File Information From A Directory
The following example shows how to return not only all the files and sub directories in a
directory, but also the file size, last modified date, and file and directory attributes.
Sub DirectorytoSheet()
Dim sh As Worksheet, lstAttr As Integer
Dim mypath As String, myName As String
Dim rw As Integer, fattr,  strAttr As String
'Add a new workbook for the information
Workbooks.Add
'set a variable to refer to the active sheet in this workbook
Set sh = ActiveSheet
'set key values
lstAttr = vbNormal + vbReadOnly + vbHidden
lstAttr = lstAttr + vbSystem + vbDirectory
lstAttr = lstAttr + vbArchive
' Set the directory to be analyzed
mypath = "c:\"
' Retrieve the first entry.
VB.NET PDF insert image library: insert images into PDF in vb.net
Once the photo is inserted, its attributes, for instance Dim outputFilePath As String = Program.RootPath + "\\" output.pdf" doc.Save All Rights Reserved.
rotate all pages in pdf; how to rotate page in pdf and save
C# PDF Page Move Library: re-order PDF pages in C#.net, ASP.NET
String inputFilePath = Program.RootPath + "\\" 1.pdf"; PDFDocument doc the new order for all pages // 1. the be in the array and only once // otherwise, the
rotate pdf page by page; how to rotate one page in a pdf file
364
myName = Dir(mypath, lstAttr)
'put labels on the sheet at the top of the columns
sh.Cells(1, 1) = "Path:"
sh.Cells(1, 2) = mypath
sh.Cells(2, 2) = "Name"
sh.Cells(2, 3) = "Date"
sh.Cells(2, 4) = "Time"
sh.Cells(2, 5) = "Size"
sh.Cells(2, 6) = "Attr"
'set the output row to a variable, which is index below as entries are made
rw = 3
' Start the loop.
Do While myName <> ""
' Ignore the current directory and
' the encompassing directory.
If myName <> "." And myName <> ".." Then
'write file name to output file
sh.Cells(rw, 2) = myName
'write date to the output file
sh.Cells(rw, 3) = Int(FileDateTime(mypath & myName))
'write time to the output file
sh.Cells(rw, 4) = _
FileDateTime(mypath & myName) 
-
_
Int(FileDateTime(mypath & myName))
'write file size to the output file
sh.Cells(rw, 5) = FileLen(mypath & myName)
'get the attributes of the file or directory
fattr = GetAttr(mypath & myName)
strAttr = ""
If fattr <> vbNormal Then
If (fattr And vbReadOnlyThen
strAttr = strAttr & "R"
VB.NET PDF Page Move Library: re-order PDF pages in vb.net, ASP.
inputFilePath As String = Program.RootPath + "\\" 1.pdf" Dim doc define the new order for all pages ' 1. the be in the array and only once ' otherwise, the
pdf reverse page order; rotate pdf pages
VB.NET PDF Text Search Library: search text inside PDF file in vb.
If the source PDF document is with multiple pages, it may be Dim document As BaseDocument If filePath.EndsWith(".pdf") Then document = New All Rights Reserved.
rotate pdf page permanently; pdf rotate single page and save
365
End If
If (fattr And vbHiddenThen
strAttr = strAttr & "H"
End If
If (fattr And vbSystemThen
strAttr = strAttr & "S"
End If
If (fattr And vbDirectoryThen
strAttr = strAttr & "D"
End If
If (fattr And vbArchiveThen
strAttr = strAttr & "A"
End If
End If
'write the file or directory attribute to the output file
sh.Cells(rw, 6) = strAttr
'index the output row variable to the next blank row
rw = rw + 1
End If
'Get next entry.
myName = Dir()
Loop
'format columns that need formatting
sh.Columns("D:D").NumberFormat = "h:mm AM/PM"
sh.Columns("E:E").NumberFormat = "#,##0"
sh.Columns("B:B").EntireColumn.AutoFit
sh.Columns("F:F").HorizontalAlignment = xlRight
sh.Range("c2:e2").HorizontalAlignment = xlRight
End Sub
16.15 Creating A New Directory
TheMkDir command allows you to create a new directory.  For example:
MkDir "C:\MyDirectory"
If the path is not specified, then the directory is created as a sub directory of the current directory.
16.16 Creating A Multi
-
Level New Directory
The subroutine MakeDirectory shown below by Rob Bovey will create a new subdirectory and
any new directories needed in the specified path.
VB Imaging - VB Code 128 Generation Guide
PointF(100F, 100F)) docx.Save("C:\\Sample_Barcode.pdf"). All the properties above are included in the 96 'set rotation barcode.Rotate = Rotate.Rotate0 barcode
rotate all pages in pdf preview; how to rotate just one page in pdf
C# Word - Sort Word Pages Order in C#.NET
new order for all pages // 1. the length of the array MUST BE equal to pageCount // 2. each page index SHOULD be in the array and only once // otherwise, the
rotate pdf pages individually; rotate pdf pages and save
366
Sub MakeDirectoriesExamples()
MakeDirectory "c:\aaa\bbb\ccc\"
End Sub
Sub MakeDirectory(ByVal szDirectory As String)
Dim lPosition As Long
Dim szDir As String
' Ensure that the directory string to be processed has a trailing backslash.
If Right$(szDirectory, 1) <> "\" Then _
szDirectory = szDirectory & "\"
'If szDirectory doesn't exist, then create it.
If Len(Dir$(szDirectory, vbDirectory)) = 0 Then
'Each subdirectory in the string must be created
'one at a time from left to right.
lPosition = InStr(szDirectory, "\")
'Loop through each subdirectory level
Do While lPosition > 0
'Get the next subdirectory level.
szDir = Left$(szDirectory, lPosition 
-
1)
'If the current level does not exist then create it.
If Len(Dir$(szDir, vbDirectory)) = 0 Then MkDir szDir
' Increment the starting point for the next backslash search.
lPosition = lPosition + 1
'Find the next slash position.
lPosition = InStr(lPosition + 1, szDirectory, "\")
Loop
End If
End Sub
16.17 List Of Available Drives
The following routine, by Jim Rech, returns the available drives.  It writes them out to the first
worksheet in the active workbook.
VB.NET Image: Create Code 11 Barcode on Picture & Document Using
set resolution barcode.Rotate = Rotate.Rotate0 'set rotate barcode.AddCheckSum to decode, encode and process PDF file independently All Barcodes Types in VB.NET.
how to rotate one page in pdf document; how to rotate a page in pdf and save it
VB.NET Image: Using VB.NET Web Image Viewer to Process Web Images
including JPEG, PNG, GIF, BMP, TIFF, PDF, Word the trial package demo project that provides all rotation buttons It makes you easy to rotate image and document
rotate pages in pdf expert; save pdf rotated pages
367
'place at the top of the module
Declare Function GetDriveType Lib "KERNEL" _
(ByVal DriveNumber As IntegerAs Integer
Declare Function GetDriveTypeA Lib "KERNEL32" _
(ByVal DriveNumber As StringAs Integer
'this returns the drives, starting with drive C
Sub ListAvailDrives()
Dim DrvCtr As Integer, Success As Integer
Dim ListCtr As Integer
Worksheets(1).Range("A1:A26").ClearContents
'do this if Excel 7 or higher
For DrvCtr = Asc("C") To Asc("Z")
'check each letter to see if it is a drive
Success = GetDriveTypeA(Chr(DrvCtr) & ":\")
If Success <> 0 And Success <> 1 Then
ListCtr = ListCtr + 1
Worksheets(1).Cells(ListCtr, 1) = Chr(DrvCtr)
End If
Next
End Sub
16.18 Getting The Amount Of Free Disk Space On A
Drive
You can use API calls to get the amount of free disk space on a drive.  Place the following at the
top of a module (either Excel 7 or 97):
Declare Function GetDiskFreeSpace Lib "kernel32" Alias _
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, _
lpTotalNumberOfClusters As LongAs Long
Function GetFreeSpace(ByVal Drive$) As Double
Dim SecPerCluster&, BytesPerSector&
Dim NumFreeClusters&, NumClusters&
Dim lRet&
Dim dVal#
lRet& = GetDiskFreeSpace(Drive$, SecPerCluster&, _
BytesPerSector&, _
NumFreeClusters&, NumClusters&)
dVal# = SecPerCluster& * BytesPerSector&
368
dVal# = dVal# * NumFreeClusters&
GetFreeSpace = dVal#
End Function
The following illustrates how to use the above code to return the space on the C drive:
Sub DiskSpace()
MsgBox GetFreeSpace("c:\") / 1048576 & " MB"
End Sub
369
17. PROGRESS MESSAGES
17.1 Creating A Splash Screen While Your Code Runs
If your code runs for a long time, you may want to create a splash screen that displays a message
saying something like "Working….".  To create a splash screen, you would need to do the
following:
add a new temporary workbook
write a message to it
turn screen updating off
run your code
delete the temporary workbook
Any time you wish to change the message on the screen, you would need to activate the
temporary workbook, turn screen updating on, change the message, and turn screen updating back
off.
The following illustrates the above procedures.
'declare this at the top of the module
Dim splashCell As Range
Sub CreateSplashWorkbook()
Dim curBook As Workbook, splashBook As Workbook
Dim splashSheet As Worksheet
Dim originalSetting As Integer
'store the active workbook so it can be reactivated
Set curBook = ActiveWorkbook
'create a one sheet workbook 
-
be sure to close when done
Application.ScreenUpdating = False
originalSetting = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set splashBook = Workbooks.Add
Application.SheetsInNewWorkbook = originalSetting
'set references to the sheet and cell
370
Set splashSheet = splashBook.Sheets(1)
Set splashCell = splashSheet.Cells(10, 3)
'format the cell, column, and sheet
With splashCell
.Font.Bold = True
.Font.FontStyle = "Bold"
.Font.Size = 16
.WrapText = True
End With
splashSheet.Columns("C:C").ColumnWidth = 43.86
ActiveWindow.DisplayGridlines = False
curBook.Activate
End Sub
Sub DisplayMsg(ByVal anyText As String, _
ByVal nSeconds As Integer)
Dim curBook As Workbook, waitTime
Set curBook = ActiveWorkbook
'activate the splash workbook and maximize the sheet
On Error GoTo errorTrap
splashCell.Parent.Parent.Activate
ActiveWindow.WindowState = xlMaximized
'insert the message and display it
splashCell.Value = anyText
Application.ScreenUpdating = True
Application.ScreenUpdating = False
'if a wait time is supplied, wait that number of seconds
If nSeconds > 0 Then
'calculate the time to wait until
waitTime = Now() + TimeSerial(0, 0, nSeconds)
Application.Wait waitTime
End If
curBook.Activate
Exit Sub
errorTrap:
MsgBox "the splash workbook has not been created"
End Sub
Sub SplashTest()
'this illustrates using the above code
Documents you may be interested
Documents you may be interested