Visual Basic

faravani wrote:

hi for all

faravani wrote:

I want select a file in my disk by openfiledialog tool in vb.net

faravani wrote:

then copy selected file

faravani wrote:

<layer>in a special path

faravani wrote:

with any format

Bastard Programmer from Hell

Class Base
  Public Function GetClassName() As String
    Return System.Reflection.MethodBase.GetCurrentMethod().ReflectedType.Name.ToLower()
  End Function
  Public Function GetCallingMethodName() As String
    Return New StackTrace().GetFrame(1).GetMethod().Name
  End Function
  Public Function GetMethodName() As String
    Return New StackTrace().GetFrame(0).GetMethod().Name
  End Function
End Class

Class SubClass ' "Sub" is a reserved word and hence not a good idea as a classname
  Inherits Base

  ' Some unrelated code
End Class

Module Module1
  Sub main()
    Dim s As New SubClass
    Console.WriteLine(s.GetClassName()) ' prints the classname
    Console.WriteLine(s.GetCallingMethodName()) ' prints the methodname (main)
    Console.WriteLine(s.GetMethodName()) ' prints the methodname that's currently executed
    Console.ReadKey()
  End Sub
End Module

Bastard Programmer from Hell

Uma Kameswari wrote:

Suddenly it stopped working

Const cdoSendUsingPort = 2