Læse eget filnavn

Hov... Der skal stå "...jeg har et..."

Du kan f.eks. bruge:

Assembly.GetExecutingAssembly().Location.ToString()

til at få exe-filens navn.

Noget i denne stil:

Dim currFileName As String = Assembly.GetExecutingAssembly.Location

Dim fi As FileInfo = New FileInfo(currFileName)

Dim destDirectoryName As String = "C:\sti1\sti2"
Dim destFileName As String = Path.Combine(destDirectoryName, fi.Name)

fi.MoveTo(destFileName)

Hvis det var en win forms app, så kunne man bruge Application.ExecutablePath (man kan også
bruge den hvis det ikke er en win forms app, men det vil se lidt "mystisk" ud).

Hmm.. Nielle.. den siger at assembly ikke er declared..

Men Application.ExecutablePath virker til formålet .. <3

Imports System.Reflection

så burde Assembly være der !

Nu du lige er her arne..

Jeg vil også gerne tjekke, om der er forbindelse til en ftp, så
kunne du lige give et eksempel, på en FtpWebRequest.GetResponse ?

Ellers lægger i begge et svar.. Tak for hjælpen..

Det eneste jeg har på lageret er:

Imports System
Imports System.IO
Imports System.Net

Namespace E
    Class MainClass
        Public Shared Sub Upload(ByVal localfile As String, ByVal ftpurl As String, ByVal bin As Boolean)
            Dim req As FtpWebRequest = DirectCast(WebRequest.Create(ftpurl), FtpWebRequest)
            req.Method = WebRequestMethods.Ftp.UploadFile
            req.UseBinary = bin
            If bin Then
                Dim instm As Stream = New FileStream(localfile, FileMode.Open, FileAccess.Read)
                Dim outstm As Stream = req.GetRequestStream()
                Dim b As Byte() = New Byte(10000) {}
                Dim n As Integer
                n = instm.Read(b, 0, b.Length)
                While n > 0
                    outstm.Write(b, 0, n)
                    n = instm.Read(b, 0, b.Length)
                End While
                instm.Close()
                outstm.Close()
            Else
                Dim sr As StreamReader = New StreamReader(localfile)
                Dim sw As StreamWriter = New StreamWriter(req.GetRequestStream())
                Dim line As String
                line = sr.ReadLine()
                While line IsNot Nothing
                    sw.WriteLine(line)
                    line = sr.ReadLine()
                End While
                sr.Close()
                sw.Close()
            End If
            Dim resp As FtpWebResponse = DirectCast(req.GetResponse(), FtpWebResponse)
            Console.WriteLine(resp.StatusCode)
        End Sub
        Public Shared Sub Main(ByVal args As String())
            Upload("C:\X.java", "ftp://anonymous:xxxxxx@arnepc3/X.java", False)
            Upload("C:\X.class", "ftp://anonymous:xxxxxx@arnepc3/X.class", True)
        End Sub
    End Class
End Namespace

Jamen, når den så rammer:

Dim outstm As Stream = req.GetRequestStream()

.. og IKKE kan få forbindelse, så stopper programmet og siger

"Unable to connect to the remote server"

Det er jo det jeg gerne vil ungå.. Så hvis den ikke kan få forbindelse, så skal den bare retry indtil den kan..

Det skal du nok bruge Try Catch til:

done = False
While Not done
    Try
        ' do FTP stuff
        done = True
    Catch e As Exception
    End Try
End While

   
End While

Og den anden end while skal naturligvis ikke være der.

og et svar

Hov?

http://www.eksperten.dk/spm/813271