Help in File Info

Hi, i am very new to VB. I am working on file operation such as show files, copy file, delete file, show current directory, rename folder, make folder.

My problem right now is with delete and copy file. I have a method of delete and copy but i dont know how to pass this method on a button.

Because we are told that each file operation should have a button for their specific purposes.

Here is my simple gui with 3 buttons which i have made so far. I am using vb2010.



http://www.flickr.com/photos/tiwnet/5964183989/


Public Sub DeleteFilesFromFolders(ByVal sourcePath As String)
If (Directory.Exists(DirPath)) Then
For Each fName As String In Directory.GetFiles(DirPath)
If File.Exists(fName) Then
File.Delete(fName)
End If
Next
End If
End Sub

Hope you could help me. tnx in advance.

Take a look in my signature, for the 101 VB.Net Samples (for each version of VS)

There are controls to help with this task...

It is very simple, click your button in the designer and the code window will open with the cursor set in the button click event there you will add code to call your sub rountine

simply use the name of the sub or function and any parameters it may require.

Code:

---

DeleteFilesFromFolders(MyPath)

---

Hi dglienna,

I followed your link and run the program filesystemsample but there were some errors in it particularly in copy file, delete file, move file which shows the error "Requested value 'False' was not found.

I hope you could help me again in this issue? tnx in advance .

It would help us if you include some code in your posts.

Hope you got the RIGHT VERSION for VSxx

Hi HanneSThEGreaT,

Here is the code in CopyFilePanel

The error that comes out when i click the execute button, it shows the error "Requested value 'False' was not found.

Here's the main form of it.. http://www.flickr.com/photos/tiwnet/5980771259/

@dglienna

Yes i checked it and it supports the visual basic 2010 which i am using, i just don't know why it went wrong, your given link should have been perfect if not for this error.

tnx anyway, now my problem is to find its cause. :(


Imports Microsoft.VisualBasic.FileIO

Public Class CopyFilePanel
Inherits FileSystemSample.TaskPanelBase

#Region " Windows Form Designer generated code "

Private Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub


'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerNonUserCode()> Private Sub InitializeComponent()
'
'DescriptionTextBox
'
Me.DescriptionTextBox.AutoSize = False
Me.DescriptionTextBox.Location = New System.Drawing.Point(7, 20)
Me.DescriptionTextBox.Multiline = True
Me.DescriptionTextBox.Size = New System.Drawing.Size(568, 61)
Me.DescriptionTextBox.Text = "My.Computer.FileSystem.CopyFile copies from one location to another. It exposes " & _
"functionality to rename file during the copy, show the Windows Shell dialog, and" & _
" overwrite the existing file in the target directory, if any."
'
'ExececuteMethodButton
'
'
'ResetValuesButton
'
'
'CopyFilePanel
'
Me.Name = "CopyFilePanel"

End Sub

#End Region


Private Shared panelInstance As CopyFilePanel
Friend WithEvents sourceFileChooser As New FileChooser()
Friend WithEvents targetChooser As New DirectoryChooser()
Friend WithEvents newNameTextBox As New TextBox()
Friend WithEvents overWriteComboBox As New ComboBox()
Friend WithEvents showUIComboBox As New ComboBox()
Friend WithEvents onUserCancelComboBox As New ComboBox()

''' <summary>
''' Return a global instance of this panel.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetInstance() As CopyFilePanel
If (panelInstance Is Nothing) Then
panelInstance = New CopyFilePanel()
End If
Return panelInstance
End Function

''' <summary>
''' Load the panel, adding controls to the panel for each parameter to copyDirectory
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub CopyFilePanel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeUserControls()
MyBase.AddParameter("sourceFileName", sourceFileChooser)
MyBase.AddParameter("destinationFileName", targetChooser)
MyBase.AddParameter("showUI", showUIComboBox)
MyBase.AddParameter("onUserCancel", onUserCancelComboBox)
End Sub

''' <summary>
''' When the user selects a filename, automatically set the newName parameter to the filename they selected.
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub sourceFileChooser_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles sourceFileChooser.Leave
If (Me.sourceFileChooser.Filename <> String.Empty) Then
Me.newNameTextBox.Text = System.IO.Path.GetFileName(Me.sourceFileChooser.Filename)
End If
End Sub


''' <summary>
''' Initialize each control with all possible parameter values
''' </summary>
''' <remarks></remarks>
Private Sub InitializeUserControls()
MyBase.MethodNameLabel.Text = "My.Computer.FileSystem.CopyFile("

Me.sourceFileChooser.Reset()
Me.targetChooser.Reset()
Me.newNameTextBox.Text = String.Empty

overWriteComboBox.Items.AddRange(New String() {"True", "False"})
overWriteComboBox.AutoSize = True
overWriteComboBox.SelectedItem = "False"
overWriteComboBox.DropDownStyle = ComboBoxStyle.DropDownList

showUIComboBox.Items.AddRange(New String() {"True", "False"})
showUIComboBox.AutoSize = True
showUIComboBox.SelectedItem = "False"
showUIComboBox.DropDownStyle = ComboBoxStyle.DropDownList

onUserCancelComboBox.Items.AddRange(New String() {"Do Nothing", "Throw Exception"})
onUserCancelComboBox.AutoSize = True
onUserCancelComboBox.SelectedItem = "Throw Exception"
onUserCancelComboBox.DropDownStyle = ComboBoxStyle.DropDownList

End Sub

''' <summary>
''' Copy the file using the parameters specified.
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ExececuteMethodButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExececuteMethodButton.Click
Try
My.Computer.FileSystem.CopyFile( _
sourceFileName:=Me.sourceFileChooser.Filename, _
destinationFileName:=Me.targetChooser.Directory, _
showUI:=CType(UIOption.Parse(GetType(UIOption), CType(Me.showUIComboBox.SelectedItem, String)), UIOption), _
onUserCancel:=ParseUICancelOption(Me.onUserCancelComboBox))
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub ResetValuesButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ResetValuesButton.Click
InitializeUserControls()
End Sub
End Class

Nobody is going to try to read that mess. Look at Post #3, to see how to enclose it in CODE tags. Then, we'll look at it.

Please read this : http://www.codeguru.com/forum/showthread.php?t=403073