Visual Basic βοήθεια σε απλό πρόβλημα

[Bourdoulas]

Προσπαθώ να φτιάξω ένα απλό πρόγραμμα που θα κάνει rename ένα αρχείο (txt) με βάση το όνομα κάποιου άλλου αρχείου (mp3). Έχω τον παρακάτω κώδικα:

 

>

Private Sub Command1_Click()
Name Filename02 As (Right$(Filename01, 3) & "txt")

End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Dir2_Change()
File2.Path = Dir2.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Drive2_Change()
Dir2.Path = Drive2.Drive
End Sub

Private Sub File1_Click()
Filename01 = File1.FileName
file = Filename01
End Sub

Private Sub File2_Click()
Filename02 = File2.FileName
File2 = Filename02
End Sub

Private Sub Option1_Click()

If Option1.Enabled Then
Command1.Caption = "Rename"
End If

End Sub

Private Sub Option2_Click()

If Option2.Enabled Then
Command1.Caption = "Copy"
End If

End Sub

 

Όταν το τρέχω μου κρασάρει. Κάνω debug και παρακολουθώ τα Filename01, File1.FileName, Filename02 και File2.FileName και συμβαίνει το εξής. Όταν επιλέγω απ' το πρώτο filelistbox ενα αρχείο mp3, το Filename01 παίρνει κανονικά την τιμή (πχ prodigy - poison.mp3). Όταν όμως επιλέγω απ' το δεύτερο filelistbox ενα text αρχείο, το Filename02 παίρνει την σωστή τιμή (πχ readme.txt), αλλά το Filename01 μου βγαζει Out of Context στο Watch window.......τι φταίει;μήπως επειδή έχω 2 filelistbox;Γιατί όμως;Ευχαριστώ.

[UserXP]

Πρέπει να ορίσεις τα Filename01 και Filename02 στο module που δουλεύεις (έξω από τις Subs)

Dim Filename01 As String, Filename02 As String

[Bourdoulas]

s' eyxaristo file moy....telika den doulepse oute etsi....i8ele na tis kano public....me tin dim nomizo paramenoun private an den kano la8os

[UserXP]

Με την Dim (στο declaration section του module - έξω από τις Subs) οι μεταβλητές είναι αναγνωρίσιμες μόνο στο module που ορίζονται και όχι σε όλο το project.

[Bourdoulas]

o kodikas den itan se module

[kostas_crete]

otan leei module ennoei to ekastote event/procedure pou ekteleitai. Kanontas tes public tis vlepeis apo pantou.