انشاء مجلد متغير الاسم في كل مرة ؟

اعزائي الكرام

استعملت الجملة التالية من اجل تجميع معلومات من عدة اجهزة

pen App.Path & "OS.txt" For Output Access Write As #filehandle%
    Print #filehandle%, text2.Text
    Close

    Open App.Path & "name.txt" For Output Access Write As #filehandle%
    Print #filehandle%, Text1.Text
    Close



    Open App.Path & "Processor.txt" For Output Access Write As #filehandle%
    Print #filehandle%, text3.Text
    Close

    Open App.Path & "Memory.txt" For Output Access Write As #filehandle%
    Print #filehandle%, text4.Text
    Close

    Open App.Path & "Drives.txt" For Output Access Write As #filehandle%
    Print #filehandle%, text5.Text
    Close

    Open App.Path & "Adapter.txt" For Output Access Write As #filehandle%
    Print #filehandle%, text6.Text
    Close

وبما ان اسم الجهاز غالبا ما يكون متغير وخصوصا للاجهزة في شبكة واحد

هل يمكن لي استعمال اسم الجهاز ليكون اسم مجلد وهو في مثالي السابق

Text1.text

وكيف اضمنه في هذه الجملة (Open App.Path & "Adapter.txt") مثلا

باختصار هل يمكنني انشاء مجلد جديد ياخذ اسمه من متغير اختاره

شكراً لكم