wName for folder?

[SpeedyKevin]

Hello all!

I'm trying to write certain cells to a text file. What I have it doing is allowing me to type in the name to which a folder and file will be created. The file naming works and folder is created but I can't seem to get the bolded part to work. Any suggestions? Thanks!




Sheets("OVERALL_CLIPS").Select
wName = InputBox("Enter file name")
If wName = "" Then Exit Sub



If Len(Dir(CurDir & "\Stoplight_Feedback" & wName, vbDirectory)) = 0 Then
MkDir CurDir & "\Stoplight_Feedback" & wName
End If





WriteRangeToTextFile Range("D6:D8"), "Stoplight_Feedback\(wName)" & (wName & "-VC1.m3u8"), vbTab

 

[SpeedyKevin]

friendly bump

 

[GR00007]

How 'bout this

Sub Test()    Dim FSO As Object
    Dim oFile As Object
    Dim c As Range
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Sheets("OVERALL_CLIPS").Select
    wName = InputBox("Enter file name")
    If wName = "" Then Exit Sub
    ChDir "C:\Junk"
    vDir = "C:\Junk"
    If Len(Dir(vDir & "\Stoplight_Feedback" & wName, vbDirectory)) = 0 Then
        MkDir vDir & "\Stoplight_Feedback" & wName
    End If
    wFldr = vDir & "\Stoplight_Feedback" & wName & "\"
    wName = wName & "-VC1.m2u8"
    Set oFile = FSO.CreateTextFile(wFldr & wName)
    Range("D6:D8").Select
    For Each c In Selection
        oFile.Write c.Value & Chr(13) & Chr(10)
    Next c
    oFile.Close
End Sub

 

[SpeedyKevin]

How 'bout this

Sub Test()    Dim FSO As Object
    Dim oFile As Object
    Dim c As Range
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Sheets("OVERALL_CLIPS").Select
    wName = InputBox("Enter file name")
    If wName = "" Then Exit Sub
    ChDir "C:\Junk"
    vDir = "C:\Junk"
    If Len(Dir(vDir & "\Stoplight_Feedback" & wName, vbDirectory)) = 0 Then
        MkDir vDir & "\Stoplight_Feedback" & wName
    End If
    wFldr = vDir & "\Stoplight_Feedback" & wName & "\"
    wName = wName & "-VC1.m2u8"
    Set oFile = FSO.CreateTextFile(wFldr & wName)
    Range("D6:D8").Select
    For Each c In Selection
        oFile.Write c.Value & Chr(13) & Chr(10)
    Next c
    oFile.Close
End Sub

Hey GR00007,

Thanks for the reply! Almost got it working! If I wanted it to write other cells to notepad would i just copy and paste the segment like this?

wFldr = vDir & "\Stoplight_Feedback" & wName & ""
wName = wName & "-VC1.m3u8"
Set oFile = FSO.CreateTextFile(wFldr & wName)
Range("D6:D8").Select
For Each c In Selection
oFile.Write c.Value & Chr(13) & Chr(10)
Next c
oFile.Close

wFldr = vDir & "\Stoplight_Feedback" & wName & ""
wName = wName & "-VC2.m3u8"
Set oFile = FSO.CreateTextFile(wFldr & wName)
Range("D12:D14").Select
For Each c In Selection
oFile.Write c.Value & Chr(13) & Chr(10)
Next c
oFile.Close

 

[SpeedyKevin]

Hey GR00007,

Thanks for the reply! Almost got it working! If I wanted it to write other cells to notepad would i just copy and paste the segment like this?

wFldr = vDir & "\Stoplight_Feedback" & wName & ""
wName = wName & "-VC1.m3u8"
Set oFile = FSO.CreateTextFile(wFldr & wName)
Range("D6:D8").Select
For Each c In Selection
oFile.Write c.Value & Chr(13) & Chr(10)
Next c
oFile.Close

wFldr = vDir & "\Stoplight_Feedback" & wName & ""
wName = wName & "-VC2.m3u8"
Set oFile = FSO.CreateTextFile(wFldr & wName)
Range("D12:D14").Select
For Each c In Selection
oFile.Write c.Value & Chr(13) & Chr(10)
Next c
oFile.Close

Oh wait I think i got it! Thanks! Appreciate the help!

 

[GR00007]

Great - glad to be of help