|
16-11-2009
|
#1 |
|
Registered User
Join Date: Nov 2009
Location: erde
Posts: 3
Abgegebene Danke: 0
Erhielt 0 Danke für 0 Beiträge
|
Datei umbennenen
HI,
wie kann man test.txt in textbox1.text umbenennen? Also angenommen es steht in textbox1.text "hallo" dann will ich das test.txt in hallo.txt umbenannt wird. es soll aber auch klappen, das die datei auch umbenannt wird wenn in textbox1.text "keinplan" steht usw. wie geht das?? |
|
|
| Sponsored Links | |
|
18-11-2009
|
#2 | |
|
Excel Moderator
 Senior Member (Board-Inventar)
Join Date: Oct 2004
Location: Ilsfeld
Posts: 2.610
Abgegebene Danke: 16
Erhielt 183 Danke für 180 Beiträge
|
Hi,
in VBA gibt es die Name-Anweisung. Siehe VBA-Hilfe dazu. Quote:
|
|
|
|
|
|
18-11-2009
|
#3 |
|
Registered User
Join Date: Nov 2009
Location: erde
Posts: 3
Abgegebene Danke: 0
Erhielt 0 Danke für 0 Beiträge
|
So weit war ich auch schon, ich weiß aber nicht immer was in textbox1.text steht
also so das meine freunde bei sic zuhause was eingeben und ich es dann lesen kann und die datei soll halt so heiß wie in textbox1.text steht |
|
|
|
|
18-11-2009
|
#4 |
|
Excel Moderator
Senior Member (Board-Inventar)
Join Date: Oct 2004
Location: Ilsfeld
Posts: 2.610
Abgegebene Danke: 16
Erhielt 183 Danke für 180 Beiträge
|
Hi,
versuche das mal so ähnlich. cu, Bernd -- Code:
Option Explicit Private Sub CommandButton1_Click() Dim strPath As String, strOldName As String, strNewName As String strPath = "E:\test\" strOldName = "test.txt" strNewName = Trim(TextBox1.Text) If Len(strNewName) = 0 Then Exit Sub If LCase(Right(strNewName, 4)) <> ".txt" Then strNewName = strNewName & ".txt" Name strPath & strOldName As strPath & strNewName End Sub |
|
|
|
| Sponsored Links | |
 |
| Thread Tools | |
| Display Modes | |
|
|
Linear Mode
