Imports System
Imports System.IO
Imports System.Collections
Public Class StartForm
Create var for location
Dim pdfloc As String
Private Sub StartForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("On the next window select the folder containing the PDF files.")
FolderBrowserDialog1.ShowDialog()
If FolderBrowserDialog1.SelectedPath = FolderBrowserDialog1.SelectedPath Then
PdfLocationLbl.Text = FolderBrowserDialog1.SelectedPath
pdfloc = FolderBrowserDialog1.SelectedPath
End If
End Sub
Private Sub createmetadatabtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles createmetadatabtn.Click
DeleteTest.Main()
End Sub
Public Class DeleteTest
Public Shared Sub Main()
Create a reference to a file.
Dim fi As New FileInfo(pdfloc & "temp.txt")
Actually create the file.
Dim fs As FileStream = fi.Create()
Close the file.
fs.Close()
End Sub Main
End Class DeleteTest
End Class