SHOW:
|
|
- or go back to the newest paste.
| 1 | e = "Error: Invalid URL!" | |
| 2 | f = "URL Generator" | |
| 3 | Do | |
| 4 | - | a = inputbox("Input sharing URL below", f)
|
| 4 | + | a = inputbox("Input sharing URL below", f, a)
|
| 5 | If IsEmpty(a) Then | |
| 6 | Wscript.Quit | |
| 7 | End If | |
| 8 | - | If Len(a) - Len(Replace(a, "/", "")) < 6 Then |
| 8 | + | If Len(a) - Len(Replace(a, "/", "")) < 5 Then |
| 9 | MsgBox e, 16, f | |
| 10 | Else | |
| 11 | b = Split(a, "/") | |
| 12 | For c = 0 To 6 Step 1 | |
| 13 | If b(c) = "d" Then | |
| 14 | d = "https://drive.google.com/uc?export=download&id=" & b(c+1) | |
| 15 | inputbox "Direct URL has been generated", f, d | |
| 16 | Wscript.Quit | |
| 17 | End If | |
| 18 | Next | |
| 19 | MsgBox e, 16, f | |
| 20 | End If | |
| 21 | Loop |
