display pdf from byte array c# : Rotate pages in pdf and save software Library dll winforms .net azure web forms 1200%20macro_examples35-part153

351
16. DIRECTORIES
16.1 Displaying The Windows 95 Folder Dialog To
Select A Directory
The following function, sDirectory(), will display the Windows folder selection dialog.  This is
useful if one needs the user to specify an output directory that does not contain any files.  The
display starts with C:\.  To have a Windows folder dialog start in a specific folder, use the code in
the next example.
'Place this type declaration and the next two functions at
'the top of the module
Public Type BROWSEINFO
hWndOwner As Long
pidlRoot As Long
sDisplayName As String
sTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal pszPath As StringAs Long
Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
Sub DemoGetPath()
Dim anyPath As String
'to use DirectoryName, just provide a msg for the dialog
'to display
anyPath = DirectoryName("Select destination folder")
If anyPath = "" Then
MsgBox "No directory selected"
Else
MsgBox anyPath
End If
End Sub
Function DirectoryName(browseHeading As StringAs String
Dim browserInfo As BROWSEINFO
Dim r As Long
Dim iList As Long
Dim wPos As Integer
browserInfo.pidlRoot = 0&
Rotate pages in pdf and save - 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#
rotate all pages in pdf file; how to rotate a pdf page in reader
Rotate pages in pdf and save - 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
pdf expert rotate page; rotate pages in pdf permanently
352
'Title in the dialog
browserInfo.sTitle = browseHeading
browserInfo.ulFlags = &H1
'Display the dialog
iList  = SHBrowseForFolder(browserInfo)
'Parse the result
DirectoryName = Space$(512)
r = SHGetPathFromIDList(ByVal iList , ByVal DirectoryName)
If r Then
wPos = InStr(DirectoryName, Chr$(0))
DirectoryName = Left(DirectoryName, wPos 
-
1)
Else
DirectoryName = ""
End If
End Function
16.2 Specifying the Windows Dialog Starting Directory
The following code will display the Windows directory dialog and lets you specify the starting
directory.  The user can not go above the starting directory.
Sub
GetaDirectory()
Dim
strMessage
As String
Dim
startDirectory
strMessage = "Select a directory"
startDirectory = "c:\program files"
Dim
objFF
As Object
Set
objFF = _
CreateObject
("Shell.Application").
BrowseForFolder
( _
0, strMessage, &H1, startDirectory)
If Not
objFF
Is Nothing Then
GetDirectory = objFF
.items.Item
.
Path
MsgBox
GetDirectory
Else
GetDirectory =
vbNullString
MsgBox
"No directory selected"
End If
Set
objFF =
Nothing
End Sub
16.3 Specifying A Starting Directory
To specify the starting directory and the file open dialog at the same time, use a statement like
the following:
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
doc.Save(outPutFilePath). How to VB.NET: Delete Consecutive Pages from PDF. This is a VB .NET example for how to delete a range of pages from a PDF document.
rotate pdf page by page; reverse pdf page order online
C# PDF Page Insert Library: insert pages into PDF file in C#.net
how to merge PDF document files by C# code, how to rotate PDF document page doc2.Save(outPutFilePath Add and Insert Multiple PDF Pages to PDF Document Using
rotate pdf page and save; pdf rotate page
353
Dim bResponseAs Boolean
bResponse =Application.Dialogs(xlDialogOpen).Show( _
"c:\my documents\")
If Not bResponseThen Exit Sub
'else code to process open file
16.4 Getting A Directory Using The File Open Dialog
If the directory the user needs to specify has a file in it, then you can use the following code to
get the directory.
Sub DirNameExample()
Dim dirName As String
dirName = Directory_Name
MsgBox dirName
End Sub
Function Directory_Name() As String
Dim fName, I As Integer
'display dialog asking user to select a file
fName = Application.GetOpenFilename _
("Files (*.xls),*.xls", , _
"To Specify The Directory, Select A File")
'check to see if cancel selected in the box
If fName = "False" Then
MsgBox "No selection made.  Activity halted."
End
End If
'extract just the directory name and store in the module level variable dirName
For I = Len(fName) To 1 Step 
-
1
If Mid(fName, I, 1) = "\" Then
Directory_Name = Left(fName, I)
Exit Function
End If
Next
End Function
16.5 How To Have The User Select A Directory
The following code illustrates how to display the built in Excel file selection dialog and then
extract the directory name from the user selection.
'declare this at the top of the module
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
doc.DeletePage(2); // Save the file. doc.Save(outPutFilePath); Demo Code: How to Delete Consecutive Pages from PDF in C#.NET. How
change orientation of pdf page; rotate pdf pages individually
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
Able to extract PDF pages and save changes to original PDF file in C#.NET. C#.NET Sample Code: Extract PDF Pages and Save into a New PDF File in C#.NET.
pdf rotate one page; rotate single page in pdf file
354
Dim dirName As String
Sub Main_Routine()
Select_A_Directory
MsgBox dirName
End Sub
Sub Select_A_Directory()
Dim sFile, I As Integer
'display dialog asking user to select a file
sFile = Application.GetOpenFilename _
("Files (*.xls),*.xls", , "Select A File")
'check to see if cancel selected in the box
If sFile = "False" Then
MsgBox "No file selected.  Activity halted."
End
End If
'extract just the directory name and store in the module level variable dirName
For I = Len(sFile) To 1 Step 
-
1
If Mid(sFile, I, 1) = "\" Then
dirName = Left(sFile, I)
Exit Sub
End If
Next
End Sub
16.6 Setting The Directory For UnMapped Network
Drives
If the path to a file is \\anyserver\direcotory\anotherDir\ then the ChDir function will not change
the directory to this path.  You need to instead use code like the following:
Private Declare Function SetCurrentDirectoryA Lib "Kernel32" _
(ByVal sCurDir As String) As Long
Function bSetDir(anyDir As StringAs Boolean
If SetCurrentDirectoryA(anyDir) = 0 Then
bSetDir = True
End If
End Function
16.7 Getting A List Of Subdirectories
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
outPutFilePath As String = Program.RootPath + "\\" Output.pdf" Dim doc1 doc2.InsertPages(pages, pageIndex) ' Output the new document doc2.Save(outPutFilePath
rotate individual pdf pages reader; permanently rotate pdf pages
How to C#: Rotate Image according to Specified angle
pages edit, C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET VB.NET How-to, VB.NET PDF, VB.NET Word, VB.NET Excel, VB Steps to Rotate image.
how to rotate a single page in a pdf document; reverse page order pdf online
355
The following illustrates how to get a list of the subdirectories of a directory.  It also illustrates
using a main routine to call subroutines and passing variables to subroutines and having the
subroutines change or use the variables/
Sub MainProgram()
Dim dirList() As String
'call the first subroutine and pass the main directory name and a string
'array variable.  The subroutine will populate the array with the
'directories.  (The array names do not have to be the same)
ListDirectories "c:\analyzer\", dirList()
'pass the populated array to a subroutine that will print the list on the
'active worksheet
PrintList dirList()
End Sub
Sub ListDirectories(anypath As String, dirList() As String)
'this subroutine receives as its arguments a directory string
'ending in a \, and a string array.  It then populates the array
'with the subdirectories
Dim dirOutput As String, i As Integer
'get the first subdirectory in the passed directory
dirOutput = Dir(anypath, vbDirectory)
'loop until the Dir functions returns ""
Do While dirOutput <> ""
'Ignore the current directory and the encompassing directory
If dirOutput <> "." And dirOutput <> ".." Then
'make sure dirOutput is a directory.
If (GetAttr(anypath & dirOutput) _
And vbDirectory) = vbDirectory Then
i = i + 1
'expand the array size, preserving the existing entries
ReDim Preserve dirList(1 To i)
C# Create PDF from Tiff Library to convert tif images to PDF in C#
Similarly, Tiff image with single page or multiple pages is supported. Description: Convert to PDF and save it on the disk. Parameters:
pdf rotate single page reader; rotate pdf pages in reader
C# Create PDF from Word Library to convert docx, doc to PDF in C#.
Able to get word count in PDF pages. Change Word hyperlink to PDF hyperlink and bookmark. Description: Convert to PDF/TIFF and save it on the disk.
pdf save rotated pages; save pdf after rotating pages
356
'add the directory to the array
dirList(i) = anypath & dirOutput
End If
End If
'get the next output from the Dir function.  it may be a file or
'a directory so the above code checks for what it is
dirOutput = Dir()
Loop
End Sub
Sub PrintList(anyList() As String)
Dim i As Integer, J As Integer
'loop through the array.  Since its size is not passed, get its lower
'and upper limits for the For..Next loop.  Print to the active sheet
For i = LBound(anyList) To UBound(anyList)
'set J equal to 1 if Lbound is zero.  This is done so that the
'next statement does not use zero as a row number
If LBound(anyList) = 0 then J = 1
Cells(i + J, 1).Value = anyList(i)
Next
End Sub
16.8 Listing Sub Directories In A Directory
The following routine lists subdirectories in a directory.
Sub List_Sub_Directories_In_A_Directory()
Dim anyPath As String
Dim dirList() As String
Dim dirOutput As String
Dim I As Integer, J As Integer
'the following variable is set to the path to be searched
anyPath = "C:\Central\"
'query the directory for any sub directories
dirOutput = Dir(anyPath, vbDirectory)
While dirOutput <> ""
'check to see if the string is a directory
357
If (GetAttr(anyPath & dirOutput) _
And vbDirectory) = vbDirectory Then
If dirOutput <> "." And dirOutput <> ".." Then
'if a directory add the string to the array
I = I + 1
ReDim Preserve dirList(1 To I)
dirList(I) = dirOutput
End If
End If
'query the directory and loop back if a string returned
dirOutput = Dir()
Wend
'print the directory listing
For J = 1 To I
Cells(J, 1).Value = anyPath & dirList(J)
Next
End Sub
16.9 Determining If A Directory Exists
The following is a function that returnsTrue if a directory exists, andFalse if it does not.  The
function is:
Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function
The following illustrates it use:
If DirExists("C:\Program Files\Common Files") Then
'actions to take if the directory exists
Else
'actions to take if it does not exist
End If
You could also do the code this way:
If Not DirExists("C:\Program Files\Common Files") Then
'actions to take if the directory does not exists
358
End If
16.10 Listing Files In A Directory And/Or Its
Subdirectories
The routine
Create_File_List
lists all the files of any filetype in a directory and its
subdirectories.  You have the option of just searching the directory specified or all the
subdirectories.  You also have the option of returning the full path as part of the array fileList.
The array fileAndPathList stores the path and file names separate.  You can sort the resulting
arrays using the QuickSort routine found in this example book.
'Place at the top of the module
Public fileList() As String
Public fileAndPathList()
Public fileCount As Long
'fileList is a one dimensional array of the files
'fileAndPathList list stores the path in the first dimension
'and the filename in the second dimension
'fileCount is the number of matching files
'note: array lists are un
-
sorted
Sub DemoDirListing()
Dim I As Long
'reset filelist,fileAndPathList, and count
Erase fileList
Erase fileAndPathList
fileCount = 0
'call search routine and pass arguments
Create_File_List "C:\My Documents", "xls", TrueTrue
'display results
If fileCount = 0 Then
MsgBox "No files found"
Else
If MsgBox(fileCount & " files found.  " & _
"Select OK to list in a new worksheet", _
vbOKCancel) = vbOK Then
Worksheets.Add
For I = 1 To UBound(fileList)
Cells(I, 1).Value = fileList(I)
Cells(I, 2).Value = fileAndPathList(1, I)
359
Cells(I, 3).Value = fileAndPathList(2, I)
Next
'set for viewing
Columns("A:C").EntireColumn.AutoFit
Range("A1:C1").Select
ActiveWindow.Zoom = True
Application.Goto Range("a1"), True
End If
End If
End Sub
Sub Create_File_List(directoryPath As String, _
sFileType As String, _
bDoSubs As Boolean, _
bPrefixFileNameWithPath As Boolean)
Dim subDirectories() As String
Dim subDirCount As Long
Dim searchString As String
Dim fName
Dim I As Long
subDirCount = 0
'make certain the directory path ends in a \
If Right(directoryPath, 1) <> "\" Then _
directoryPath = directoryPath & "\"
searchString = directoryPath & Dir(directoryPath & "*.*", _
vbDirectory)
Do While searchString <> directoryPath
If Not (Right(searchString, 2) = "\." Or _
Right(searchString, 3) = "\..") Then
If GetAttr(searchString) = vbDirectory Then
'do this if a subdirectory
If bDoSubs Then
' add to array of directories
subDirCount = subDirCount + 1
ReDim Preserve subDirectories(1 To subDirCount)
subDirectories(subDirCount) = searchString
End If
Else
'do this if a file of the correct filetype
If UCase(Right(fName, Len(sFileType))) = _
UCase(sFileType) _
Or sFileType = "*" Then
360
fileCount = fileCount + 1
ReDim Preserve fileList(1 To fileCount)
ReDim Preserve fileAndPathList(1 To 2, _
To fileCount)
fileAndPathList(1, fileCount) = directoryPath
fileAndPathList(2, fileCount) = fName
'include path in fileList if option to do so set
If bPrefixFileNameWithPath Then
fileList(fileCount) = searchString
Else
fileList(fileCount) = fName
End If
End If
End If
End If
fName = Dir()
searchString = directoryPath & fName
Loop
'call recursively to process subdirectories
If subDirCount > 0 And bDoSubs Then
For I = 1 To subDirCount
Create_File_List subDirectories(I), _
sFileType, _
bDoSubs, _
bPrefixFileNameWithPath
Next
End If
End Sub
16.11 Counting The Number Of Files In A Directory
The following shows how to count the number of XLS files in a directory.  It uses a function to
do this.  The advantage of this is that the function can be called from many places in your code
versus having to repeat the code each time it is needed.
Sub Count_Files_In_A_Directory()
Dim I
'get the number of files by calling a user function
I = CountFiles("C:\MyFiles")
'display the results in a message box
MsgBox "There are " & I & _
" xls files in the directory you specified"
End Sub
Documents you may be interested
Documents you may be interested